[Emacs-diffs] Changes to emacs/lisp/net/rlogin.el

[Thien-Thi Nguyen]

Index: emacs/lisp/net/rlogin.el
diff -c emacs/lisp/net/rlogin.el:1.7 emacs/lisp/net/rlogin.el:1.8
*** emacs/lisp/net/rlogin.el:1.7        Mon May  2 02:34:57 2005
--- emacs/lisp/net/rlogin.el    Mon May  2 02:41:57 2005
***************
*** 182,188 ****
                     (append (split-string input-args)
                             rlogin-explicit-args)
                   (split-string input-args)))
!        (host (car args))
         (user (or (car (cdr (member "-l" args)))
                     (user-login-name)))
           (buffer-name (if (string= user (user-login-name))
--- 182,193 ----
                     (append (split-string input-args)
                             rlogin-explicit-args)
                   (split-string input-args)))
!          (host (let ((tail args))
!                  ;; Find first arg that doesn't look like an option.
!                  ;; This still loses for args that take values, feh.
!                  (while (and tail (= ?- (aref (car tail) 0)))
!                    (setq tail (cdr tail)))
!                  (car tail)))
         (user (or (car (cdr (member "-l" args)))
                     (user-login-name)))
           (buffer-name (if (string= user (user-login-name))