mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1992-02-21 17:27:46 +00:00
parent 531ff25498
commit 94a861b5aa
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/telnet.el
View File

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