mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(telnet-initial-filter): Fix error message.

Browse Source 
Bind case-fold-search to t.
This commit is contained in:
Richard M. Stallman 1997-01-08 06:56:06 +00:00
parent 6ae5bdf58c
commit e81fd1f747
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/telnet.el
View File

@ -121,19 +121,20 @@ 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.
(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".