diff options
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 4029b7fa334..6296d6a9bb5 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1216,8 +1216,10 @@ Use a MESSAGE of \"\" to temporarily clear the echo area." (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'. |