*** empty log message ***

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/rlogin.el b/lisp/rlogin.el
index 1f52c46a2d2..b3e2762bad5 100644
--- a/lisp/rlogin.el
+++ b/lisp/rlogin.el
@@ -81,7 +81,8 @@ the rlogin when starting."
   (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)