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