diff options
| -rw-r--r-- | lisp/telnet.el | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index 034c0341a6f..caecf8e368d 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -131,20 +131,22 @@ rejecting one login and prompting again for a username and password.") (defun telnet-initial-filter (proc string) ;For reading up to and including password; also will get machine type. - (let ((case-fold-search t)) - (cond ((string-match "No such host" string) - (kill-buffer (process-buffer proc)) - (error "No such host")) - ((string-match "passw" string) - (telnet-filter proc string) - (setq telnet-count 0) - (send-string proc (concat (comint-read-noecho "Password: " t) - telnet-new-line))) - (t (telnet-check-software-type-initialize string) + (save-current-buffer + (set-buffer (process-buffer proc)) + (let ((case-fold-search t)) + (cond ((string-match "No such host" string) + (kill-buffer (process-buffer proc)) + (error "No such host")) + ((string-match "passw" string) (telnet-filter proc string) - (cond ((> telnet-count telnet-maximum-count) - (set-process-filter proc 'telnet-filter)) - (t (setq telnet-count (1+ telnet-count)))))))) + (setq telnet-count 0) + (send-string proc (concat (comint-read-noecho "Password: " t) + telnet-new-line))) + (t (telnet-check-software-type-initialize string) + (telnet-filter proc string) + (cond ((> telnet-count telnet-maximum-count) + (set-process-filter proc 'telnet-filter)) + (t (setq telnet-count (1+ telnet-count))))))))) ;; Identical to comint-simple-send, except that it sends telnet-new-line ;; instead of "\n". |