1216 |
(setq ,current-message (current-message)) |
(setq ,current-message (current-message)) |
1217 |
(message "%s" ,temp-message)) |
(message "%s" ,temp-message)) |
1218 |
,@body) |
,@body) |
1219 |
(and ,temp-message ,current-message |
(and ,temp-message |
1220 |
(message "%s" ,current-message)))))) |
(if ,current-message |
1221 |
|
(message "%s" ,current-message) |
1222 |
|
(message nil))))))) |
1223 |
|
|
1224 |
(defmacro with-temp-buffer (&rest body) |
(defmacro with-temp-buffer (&rest body) |
1225 |
"Create a temporary buffer, and evaluate BODY there like `progn'. |
"Create a temporary buffer, and evaluate BODY there like `progn'. |