diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-02-21 17:27:46 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-02-21 17:27:46 +0000 |
| commit | 94a861b5aabe448942ec454d4d3321b29915cc53 (patch) | |
| tree | 2269beb0044d7f373495adbee9d69f8ba551a6b2 /lisp/telnet.el | |
| parent | 531ff2549828594ff628dc202a6de9eb9ce7f9ce (diff) | |
| download | emacs-94a861b5aabe448942ec454d4d3321b29915cc53.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/telnet.el')
| -rw-r--r-- | lisp/telnet.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/telnet.el b/lisp/telnet.el index 9da56bd8dd8..c3513f61056 100644 --- 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)) |