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) ?.)) |