# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 800301072 0
# Node ID 95a2506fba609cefd7c2ef8a7ee05a735f7d8798
# Parent  7a7da7fca59446270608d89fed139446d2d4b8c2
(rlogin-history): New defvar.
(rlogin): Use rlogin-history as history var in read-from-minibuffer.

diff -r 7a7da7fca594 -r 95a2506fba60 lisp/rlogin.el
--- 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)