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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
