Mercurial > emacs
changeset 11471:019a9e941699
(map-y-or-n-p): Don't log prompt messages.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 17 Apr 1995 18:52:41 +0000 |
| parents | 2958364d4d99 |
| children | b2ccbdb6336f |
| files | lisp/map-ynp.el |
| diffstat | 1 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/map-ynp.el Mon Apr 17 18:42:29 1995 +0000 +++ b/lisp/map-ynp.el Mon Apr 17 18:52:41 1995 +0000 @@ -139,16 +139,17 @@ (cons prompt map)) 'quit)) ;; Prompt in the echo area. - (let ((cursor-in-echo-area (not no-cursor-in-echo-area))) + (let ((cursor-in-echo-area (not no-cursor-in-echo-area)) + (message-log-max nil)) (message "%s(y, n, !, ., q, %sor %s) " prompt user-keys (key-description (vector help-char))) - (setq char (read-event))) - ;; Show the answer to the question. - (message "%s(y, n, !, ., q, %sor %s) %s" - prompt user-keys - (key-description (vector help-char)) - (single-key-description char)) + (setq char (read-event)) + ;; Show the answer to the question. + (message "%s(y, n, !, ., q, %sor %s) %s" + prompt user-keys + (key-description (vector help-char)) + (single-key-description char))) (setq def (lookup-key map (vector char)))) (cond ((eq def 'exit) (setq next (function (lambda () nil)))) @@ -243,7 +244,8 @@ (setq unread-command-events (cons delayed-switch-frame unread-command-events)))) ;; Clear the last prompt from the minibuffer. - (message "") + (let ((message-log-max nil)) + (message "")) ;; Return the number of actions that were taken. actions))