diff options
| author | Jim Blandy | 1992-02-21 17:27:46 +0000 |
|---|---|---|
| committer | Jim Blandy | 1992-02-21 17:27:46 +0000 |
| commit | 94a861b5aabe448942ec454d4d3321b29915cc53 (patch) | |
| tree | 2269beb0044d7f373495adbee9d69f8ba551a6b2 | |
| parent | 531ff2549828594ff628dc202a6de9eb9ce7f9ce (diff) | |
| download | emacs-94a861b5aabe448942ec454d4d3321b29915cc53.tar.gz emacs-94a861b5aabe448942ec454d4d3321b29915cc53.zip | |
*** empty log message ***
| -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)) |