# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 733303928 0
# Node ID f51bd667640943df08dc294da510548c288bbdd8
# Parent  845db675b3e931642bbd2c78d51e4d31ffcd0688
*** empty log message ***

diff -r 845db675b3e9 -r f51bd6676409 lisp/rlogin.el
--- a/lisp/rlogin.el	Sun Mar 28 07:25:36 1993 +0000
+++ b/lisp/rlogin.el	Sun Mar 28 07:32:08 1993 +0000
@@ -81,7 +81,8 @@
   (let* ((buffer-name (format "*rlogin-%s*" host))
          (args (if (and rlogin-explicit-args (listp rlogin-explicit-args))
                    (cons host rlogin-explicit-args)
-                 (list host))))
+                 (list host)))
+	 proc)
     (and prefix (setq buffer-name 
                       (buffer-name (generate-new-buffer buffer-name))))
     (switch-to-buffer buffer-name)