# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798144761 0
# Node ID 019a9e941699d54a319f846e09be616615695615
# Parent  2958364d4d9978aef8f55b0d7373e232dc1d2d8d
(map-y-or-n-p): Don't log prompt messages.

diff -r 2958364d4d99 -r 019a9e941699 lisp/map-ynp.el
--- 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))