Mercurial > emacs
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))