/[emacs]/emacs/lisp/net/rlogin.el
ViewVC logotype

Diff of /emacs/lisp/net/rlogin.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by ttn, Mon May 2 02:34:57 2005 UTC revision 1.8 by ttn, Mon May 2 02:41:57 2005 UTC
# Line 182  variable." Line 182  variable."
182                     (append (split-string input-args)                     (append (split-string input-args)
183                             rlogin-explicit-args)                             rlogin-explicit-args)
184                   (split-string input-args)))                   (split-string input-args)))
185           (host (car args))           (host (let ((tail args))
186                     ;; Find first arg that doesn't look like an option.
187                     ;; This still loses for args that take values, feh.
188                     (while (and tail (= ?- (aref (car tail) 0)))
189                       (setq tail (cdr tail)))
190                     (car tail)))
191           (user (or (car (cdr (member "-l" args)))           (user (or (car (cdr (member "-l" args)))
192                     (user-login-name)))                     (user-login-name)))
193           (buffer-name (if (string= user (user-login-name))           (buffer-name (if (string= user (user-login-name))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26