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)) |