diff options
| author | Roland McGrath <roland@gnu.org> | 1995-05-12 17:51:12 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1995-05-12 17:51:12 +0000 |
| commit | 61cbf57e8ebe5bdf3e1934208e8c0b06b5dfc96a (patch) | |
| tree | 7bc9eb93be7d9b8bfa9809c3dadebf0f7ee408e7 /lisp/rlogin.el | |
| parent | aa7e566f0dd1b5b5c40799780d7c6f42c11e375a (diff) | |
| download | emacs-61cbf57e8ebe5bdf3e1934208e8c0b06b5dfc96a.tar.gz | |
(rlogin-history): New defvar.
(rlogin): Use rlogin-history as history var in read-from-minibuffer.
Diffstat (limited to 'lisp/rlogin.el')
| -rw-r--r-- | lisp/rlogin.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/rlogin.el b/lisp/rlogin.el index 243714bd1cd..30a3fcb3f43 100644 --- a/lisp/rlogin.el +++ b/lisp/rlogin.el @@ -20,7 +20,7 @@ ;; along with this program; if not, write to: The Free Software Foundation, ;; Inc.; 675 Massachusetts Avenue.; Cambridge, MA 02139, USA. -;; $Id: rlogin.el,v 1.26 1995/04/07 22:17:06 friedman Exp friedman $ +;; $Id: rlogin.el,v 1.27 1995/04/07 22:27:24 friedman Exp roland $ ;;; Commentary: @@ -102,6 +102,8 @@ this variable is set from that.") ;;;###autoload (add-hook 'same-window-regexps "^\\*rlogin-.*\\*\\(\\|<[0-9]+>\\)") +(defvar rlogin-history nil) + ;;;###autoload (defun rlogin (input-args &optional prefix) "Open a network login connection to HOST via the `rlogin' program. @@ -134,7 +136,8 @@ If you wish to change directory tracking styles during a session, use the function `rlogin-directory-tracking-mode' rather than simply setting the variable." (interactive (list - (read-from-minibuffer "rlogin arguments (hostname first): ") + (read-from-minibuffer "rlogin arguments (hostname first): " + nil nil nil 'rlogin-history) current-prefix-arg)) (let* ((process-connection-type rlogin-process-connection-type) |