Mercurial > emacs

comparison lisp/subr.el @ 28628:60285ddb5d02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read-passwd): Use read-char-exclusive.
author Richard M. Stallman <rms@gnu.org>
date Mon, 17 Apr 2000 16:08:26 +0000
parents 9958b6d95bd6
children f8379b011476
comparison
equal deleted inserted replaced
28627:1f6ba3e73fe9 28628:60285ddb5d02
882 (echo-keystrokes 0) 882 (echo-keystrokes 0)
883 (cursor-in-echo-area t)) 883 (cursor-in-echo-area t))
884 (while (progn (message "%s%s" 884 (while (progn (message "%s%s"
885 prompt 885 prompt
886 (make-string (length pass) ?.)) 886 (make-string (length pass) ?.))
887 (setq c (read-char nil t)) 887 (setq c (read-char-exclusive nil t))
888 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) 888 (and (/= c ?\r) (/= c ?\n) (/= c ?\e)))
889 (if (= c ?\C-u) 889 (if (= c ?\C-u)
890 (setq pass "") 890 (setq pass "")
891 (if (and (/= c ?\b) (/= c ?\177)) 891 (if (and (/= c ?\b) (/= c ?\177))
892 (setq pass (concat pass (char-to-string c))) 892 (setq pass (concat pass (char-to-string c)))