179 |
|
|
180 |
(let* ((process-connection-type rlogin-process-connection-type) |
(let* ((process-connection-type rlogin-process-connection-type) |
181 |
(args (if rlogin-explicit-args |
(args (if rlogin-explicit-args |
182 |
(append (rlogin-parse-words input-args) |
(append (split-string input-args) |
183 |
rlogin-explicit-args) |
rlogin-explicit-args) |
184 |
(rlogin-parse-words input-args))) |
(split-string input-args))) |
185 |
(host (car args)) |
(host (car args)) |
186 |
(user (or (car (cdr (member "-l" args))) |
(user (or (car (cdr (member "-l" args))) |
187 |
(user-login-name))) |
(user-login-name))) |
281 |
(goto-char orig-point))))))) |
(goto-char orig-point))))))) |
282 |
|
|
283 |
|
|
|
;; Parse a line into its constituent parts (words separated by |
|
|
;; whitespace). Return a list of the words. |
|
|
(defun rlogin-parse-words (line) |
|
|
(let ((list nil) |
|
|
(posn 0) |
|
|
(match-data (match-data))) |
|
|
(while (string-match "[^ \t\n]+" line posn) |
|
|
(setq list (cons (substring line (match-beginning 0) (match-end 0)) |
|
|
list)) |
|
|
(setq posn (match-end 0))) |
|
|
(set-match-data (match-data)) |
|
|
(nreverse list))) |
|
|
|
|
284 |
(defun rlogin-send-Ctrl-C () |
(defun rlogin-send-Ctrl-C () |
285 |
(interactive) |
(interactive) |
286 |
(process-send-string nil "\C-c")) |
(process-send-string nil "\C-c")) |