Mercurial > emacs
changeset 11805:95a2506fba60
(rlogin-history): New defvar.
(rlogin): Use rlogin-history as history var in read-from-minibuffer.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Fri, 12 May 1995 17:51:12 +0000 |
| parents | 7a7da7fca594 |
| children | 78258a1b902b |
| files | lisp/rlogin.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/rlogin.el Fri May 12 17:26:59 1995 +0000 +++ b/lisp/rlogin.el Fri May 12 17:51:12 1995 +0000 @@ -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 @@ ;;;###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 @@ 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)