From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 17 Apr 1995 18:52:41 +0000 (+0000)
Subject: (map-y-or-n-p): Don't log prompt messages.
X-Git-Tag: emacs-19.34~4387
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a66839ceae5f66bac2c674e158304676e6b5ae9c;p=emacs.git

(map-y-or-n-p): Don't log prompt messages.
---

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 34b93cbfce8..8194b568e40 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -139,16 +139,17 @@ Returns the number of actions taken."
 						    (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 @@ the current %s and exit."
 	  (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))