changeset 557:46b8522b8f89

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Fri, 21 Feb 1992 17:27:46 +0000
parents af0eae450bc9
children e685e9189acd
files lisp/telnet.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/telnet.el	Fri Feb 21 16:19:12 1992 +0000
+++ b/lisp/telnet.el	Fri Feb 21 17:27:46 1992 +0000
@@ -175,7 +175,7 @@
 (defun read-password ()
   (let ((answ "") tem)
     (message "Reading password...")
-    (while (not (or (= (setq tem (read-char)) ?\^m)
-		    (= tem ?\n)))
+    (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))