From 25e907da8b54041d823bd0852536b9956e2fcfe2 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 8 Apr 1994 00:18:37 +0000 Subject: [PATCH] (telnet-initial-filter, read-password): Don't unnecessarily duplicate comint functionality. --- lisp/telnet.el | 15 +++------------ 1 file changed, 3 insertions(+), 12 deletions(-) diff --git a/lisp/telnet.el b/lisp/telnet.el index 6a4a1f3f285..19cac0f734e 100644 --- a/lisp/telnet.el +++ b/lisp/telnet.el @@ -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 -- 2.39.5