Mercurial > emacs
comparison lisp/subr.el @ 24385:92817fedff02
(with-temp-message): Use %s so % in old msg won't fool us.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Tue, 23 Feb 1999 22:09:03 +0000 |
| parents | ca77d79a0c21 |
| children | 1ce8c890309e |
comparison
equal
deleted
inserted
replaced
| 24384:e075b0cbd57a | 24385:92817fedff02 |
|---|---|
| 974 (progn | 974 (progn |
| 975 (when ,temp-message | 975 (when ,temp-message |
| 976 (setq ,current-message (current-message)) | 976 (setq ,current-message (current-message)) |
| 977 (message ,temp-message)) | 977 (message ,temp-message)) |
| 978 ,@body) | 978 ,@body) |
| 979 (when ,temp-message | 979 (and ,temp-message ,current-message |
| 980 (message ,current-message)))))) | 980 (message "%s" ,current-message)))))) |
| 981 | 981 |
| 982 (defmacro with-temp-buffer (&rest body) | 982 (defmacro with-temp-buffer (&rest body) |
| 983 "Create a temporary buffer, and evaluate BODY there like `progn'. | 983 "Create a temporary buffer, and evaluate BODY there like `progn'. |
| 984 See also `with-temp-file' and `with-output-to-string'." | 984 See also `with-temp-file' and `with-output-to-string'." |
| 985 (let ((temp-buffer (make-symbol "temp-buffer"))) | 985 (let ((temp-buffer (make-symbol "temp-buffer"))) |