226 |
(progn |
(progn |
227 |
(when temp-message |
(when temp-message |
228 |
(setq current-message (current-message)) |
(setq current-message (current-message)) |
229 |
(message temp-message)) |
(message "%s" temp-message)) |
230 |
,@body) |
,@body) |
231 |
(when temp-message |
(when temp-message |
232 |
(message current-message)))))) |
(message "%s" current-message)))))) |
233 |
;; |
;; |
234 |
;; We use this for compatibility with a future Emacs. |
;; We use this for compatibility with a future Emacs. |
235 |
(or (fboundp 'defcustom) |
(or (fboundp 'defcustom) |