Mercurial > emacs
comparison lisp/subr.el @ 28628:60285ddb5d02
(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))) |