diff options
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r-- | lisp/acdw.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 262c15e..603f46f 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -128,10 +128,12 @@ I keep forgetting how they differ." | |||
128 | (defmacro +with-message (message &rest body) | 128 | (defmacro +with-message (message &rest body) |
129 | "Execute BODY, with MESSAGE. | 129 | "Execute BODY, with MESSAGE. |
130 | If body executes without errors, MESSAGE...Done will be displayed." | 130 | If body executes without errors, MESSAGE...Done will be displayed." |
131 | ;; ^ TODO | 131 | (declare (indent 1)) |
132 | `(prog1 (progn (message ,(concat message "...")) | 132 | (let ((msg (gensym))) |
133 | ,@body) | 133 | `(let ((,msg ,message)) |
134 | (message ,(concat message "...Done.")))) | 134 | (unwind-protect (progn (message "%s..." ,msg) |
135 | ,@body) | ||
136 | (message "%s... Done." ,msg))))) | ||
135 | 137 | ||
136 | (defun +mapc-some-buffers (func &optional predicate) | 138 | (defun +mapc-some-buffers (func &optional predicate) |
137 | "Perform FUNC on all buffers satisfied by PREDICATE. | 139 | "Perform FUNC on all buffers satisfied by PREDICATE. |