diff options
| -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: | |||
| 175 | (defun read-password () | 175 | (defun read-password () |
| 176 | (let ((answ "") tem) | 176 | (let ((answ "") tem) |
| 177 | (message "Reading password...") | 177 | (message "Reading password...") |
| 178 | (while (not (or (= (setq tem (read-char)) ?\^m) | 178 | (while (prog1 (not (memq (setq tem (read-char)) '(?\C-m ?\n ?\C-g))) |
| 179 | (= tem ?\n))) | 179 | (setq quit-flag nil)) |
| 180 | (setq answ (concat answ (char-to-string tem)))) | 180 | (setq answ (concat answ (char-to-string tem)))) |
| 181 | answ)) | 181 | answ)) |