# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 698693266 0
# Node ID 46b8522b8f89d8707bfbcc862f2008c2277fb25f
# Parent  af0eae450bc997670bf3e9614f291b384ca43f02
*** empty log message ***

diff -r af0eae450bc9 -r 46b8522b8f89 lisp/telnet.el
--- 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))