Mercurial > emacs
comparison lisp/telnet.el @ 557:46b8522b8f89
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 21 Feb 1992 17:27:46 +0000 |
| parents | 1e0bc00dca7a |
| children | 4cd7543be581 |
comparison
equal
deleted
inserted
replaced
| 556:af0eae450bc9 | 557:46b8522b8f89 |
|---|---|
| 174 (run-hooks 'telnet-mode-hook)) | 174 (run-hooks 'telnet-mode-hook)) |
| 175 | 175 |
| 176 (defun read-password () | 176 (defun read-password () |
| 177 (let ((answ "") tem) | 177 (let ((answ "") tem) |
| 178 (message "Reading password...") | 178 (message "Reading password...") |
| 179 (while (not (or (= (setq tem (read-char)) ?\^m) | 179 (while (prog1 (not (memq (setq tem (read-char)) '(?\C-m ?\n ?\C-g))) |
| 180 (= tem ?\n))) | 180 (setq quit-flag nil)) |
| 181 (setq answ (concat answ (char-to-string tem)))) | 181 (setq answ (concat answ (char-to-string tem)))) |
| 182 answ)) | 182 answ)) |