Commit 94a861b5 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 531ff254
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment