*** empty log message ***

diff --git a/lisp/telnet.el b/lisp/telnet.el
index 9da56bd..c3513f6 100644 (file)
--- a/lisp/telnet.el
+++ b/lisp/telnet.el
@@ -175,7 +175,7 @@ Bugs:
 (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))