Mercurial > emacs
changeset 16847:76159aa277eb
(telnet-initial-filter): Fix error message.
Bind case-fold-search to t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 08 Jan 1997 06:56:06 +0000 |
| parents | 7fe3a413068d |
| children | 7d682bad413e |
| files | lisp/telnet.el |
| diffstat | 1 files changed, 13 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/telnet.el Wed Jan 08 06:09:48 1997 +0000 +++ b/lisp/telnet.el Wed Jan 08 06:56:06 1997 +0000 @@ -121,19 +121,20 @@ (defun telnet-initial-filter (proc string) ;For reading up to and including password; also will get machine type. - (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) + (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".