changeset 12126:0b0b0c2e5254

(rlogin): If optional second arg is buffer or string, use that as name.

--- a/lisp/rlogin.el	Thu Jun 08 04:43:19 1995 +0000
+++ b/lisp/rlogin.el	Thu Jun 08 13:03:15 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.27 1995/04/07 22:27:24 friedman Exp roland $
+;; $Id: rlogin.el,v 1.28 1995/05/12 17:51:12 roland Exp roland $
 
 ;;; Commentary:
 
@@ -105,7 +105,7 @@
 (defvar rlogin-history nil)
 
 ;;;###autoload
-(defun rlogin (input-args &optional prefix)
+(defun rlogin (input-args &optional buffer)
   "Open a network login connection to HOST via the `rlogin' program.
 Input is sent line-at-a-time to the remote connection.
 
@@ -114,6 +114,9 @@
 If a prefix argument is given and the buffer `*rlogin-HOST*' already exists,
 a new buffer with a different connection will be made.
 
+When called from a program, if the optional second argument is a string or 
+buffer, it names the buffer to use.
+
 The variable `rlogin-program' contains the name of the actual program to
 run.  It can be a relative or absolute path.
 
@@ -153,9 +156,11 @@
                         (format "*rlogin-%s@%s*" user host)))
 	 proc)
 
-    (cond ((null prefix))
-          ((numberp prefix)
-           (setq buffer-name (format "%s<%d>" buffer-name prefix)))
+    (cond ((null buffer))
+	  ((or (stringp buffer) (bufferp buffer))
+	   (setq buffer-name buffer))
+          ((numberp buffer)
+           (setq buffer-name (format "%s<%d>" buffer-name buffer)))
           (t
            (setq buffer-name (generate-new-buffer-name buffer-name))))