Mercurial > emacs
comparison lisp/subr.el @ 67012:6b634736fd83
(read-passwd): Fontify the prompt as we do with other prompts.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 19 Nov 2005 12:49:30 +0000 |
| parents | ecdadc99bf8c |
| children | a69df0269000 69e184bbba16 |
comparison
equal
deleted
inserted
replaced
| 67011:57d5f3eaca9f | 67012:6b634736fd83 |
|---|---|
| 1539 success) | 1539 success) |
| 1540 (let ((pass nil) | 1540 (let ((pass nil) |
| 1541 (c 0) | 1541 (c 0) |
| 1542 (echo-keystrokes 0) | 1542 (echo-keystrokes 0) |
| 1543 (cursor-in-echo-area t)) | 1543 (cursor-in-echo-area t)) |
| 1544 (add-text-properties 0 (length prompt) | |
| 1545 minibuffer-prompt-properties prompt) | |
| 1544 (while (progn (message "%s%s" | 1546 (while (progn (message "%s%s" |
| 1545 prompt | 1547 prompt |
| 1546 (make-string (length pass) ?.)) | 1548 (make-string (length pass) ?.)) |
| 1547 (setq c (read-char-exclusive nil t)) | 1549 (setq c (read-char-exclusive nil t)) |
| 1548 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) | 1550 (and (/= c ?\r) (/= c ?\n) (/= c ?\e))) |