procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(telnet-initial-filter, read-password): Don't unnecessarily duplicate comint

Browse source 
functionality.
This commit is contained in:
Karl Heuer 1994-04-08 00:18:37 +00:00
parent e555fdd878
commit 25e907da8b
1 changed files with 3 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/telnet.el
View file

@ -127,10 +127,9 @@ rejecting one login and prompting again for a username and password.")
(error "No such host."))
((string-match "passw" string)
(telnet-filter proc string)
(let* ((echo-keystrokes 0)
(password (read-password)))
(setq telnet-count 0)
(send-string proc (concat password telnet-new-line))))
(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)
@ -228,14 +227,6 @@ Normally input is edited in Emacs and sent a line at a time."
(telnet-mode)
(setq telnet-count -16)))
(defun read-password ()
(let ((answ "") tem)
(message "Reading password...")
(while (prog1 (not (memq (setq tem (read-char)) '(?\C-m ?\n ?\C-g)))
(setq quit-flag nil))
(setq answ (concat answ (char-to-string tem))))
answ))
(provide 'telnet)
;;; telnet.el ends here