# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1008524480 0
# Node ID d6765861f6eafb2901631ec3b117436aa9a0542b
# Parent  a395833922190723bdcdfb6f2e144101de6f6b49
(with-temp-message): At the end, always discard
the temp message, even by clearing the echo area.

diff -r a39583392219 -r d6765861f6ea lisp/subr.el
--- a/lisp/subr.el	Sun Dec 16 17:27:44 2001 +0000
+++ b/lisp/subr.el	Sun Dec 16 17:41:20 2001 +0000
@@ -1216,8 +1216,10 @@
 	       (setq ,current-message (current-message))
 	       (message "%s" ,temp-message))
 	     ,@body)
-	 (and ,temp-message ,current-message
-	      (message "%s" ,current-message))))))
+	 (and ,temp-message
+	      (if ,current-message
+		  (message "%s" ,current-message)
+		(message nil)))))))
 
 (defmacro with-temp-buffer (&rest body)
   "Create a temporary buffer, and evaluate BODY there like `progn'.