diff options
| author | Case Duckworth | 2022-01-09 20:52:07 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-09 20:52:07 -0600 |
| commit | b7295426c95bf968288bb6ead2db416a71ec4d3e (patch) | |
| tree | 41f8b5c7c4e7f8f42650ed44b8e9159f6a8984af /lisp/acdw.el | |
| parent | Gah, so many changes (diff) | |
| download | emacs-b7295426c95bf968288bb6ead2db416a71ec4d3e.tar.gz emacs-b7295426c95bf968288bb6ead2db416a71ec4d3e.zip | |
Weekend, babee
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. |