diff options
| author | Simon Marshall <simon@gnu.org> | 1999-01-06 15:23:46 +0000 |
|---|---|---|
| committer | Simon Marshall <simon@gnu.org> | 1999-01-06 15:23:46 +0000 |
| commit | a600effe5ff4091e7cbdf017de45b7caf3e88d75 (patch) | |
| tree | 90c32a72c107f7286ce815285094f51a214a7647 /lisp/subr.el | |
| parent | e61d8515a54cc97035e37bb3887dbc9df0edb01c (diff) | |
| download | emacs-a600effe5ff4091e7cbdf017de45b7caf3e88d75.tar.gz | |
Doc fix.
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 ac2d3117623..cdbb06b4b5d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -960,10 +960,12 @@ See also `with-temp-buffer'." (kill-buffer ,temp-buffer)))))) (defmacro with-temp-message (message &rest body) - "Display MESSAGE temporarily while BODY is evaluated. + "Display MESSAGE temporarily if non-nil while BODY is evaluated. The original message is restored to the echo area after BODY has finished. The value returned is the value of the last form in BODY. -MESSAGE is written to the message log buffer if `message-log-max' is non-nil." +MESSAGE is written to the message log buffer if `message-log-max' is non-nil. +If MESSAGE is nil, the echo area and message log buffer are unchanged. +Use a MESSAGE of \"\" to temporarily clear the echo area." (let ((current-message (make-symbol "current-message")) (temp-message (make-symbol "with-temp-message"))) `(let ((,temp-message ,message) |