Mercurial > emacs
comparison lisp/subr.el @ 69978:cb54ae454387
(read-passwd): Bind `message-log-max' to nil.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Wed, 12 Apr 2006 19:40:56 +0000 |
| parents | 196122ba0b05 |
| children | b85aa1663ba3 2d2f6f096f6e c156f6a9e7b5 |
comparison
equal
deleted
inserted
replaced
| 69977:b2ed1f1fc9e0 | 69978:cb54ae454387 |
|---|---|
| 1538 (sit-for 1)))) | 1538 (sit-for 1)))) |
| 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 (message-log-max nil)) | |
| 1544 (add-text-properties 0 (length prompt) | 1545 (add-text-properties 0 (length prompt) |
| 1545 minibuffer-prompt-properties prompt) | 1546 minibuffer-prompt-properties prompt) |
| 1546 (while (progn (message "%s%s" | 1547 (while (progn (message "%s%s" |
| 1547 prompt | 1548 prompt |
| 1548 (make-string (length pass) ?.)) | 1549 (make-string (length pass) ?.)) |