diff options
author | Jonas Bernoulli <jonas@bernoul.li> | 2019-07-15 22:07:42 +0200 |
---|---|---|
committer | Jonas Bernoulli <jonas@bernoul.li> | 2019-07-15 22:07:42 +0200 |
commit | 4f06aba28fb87f991ec7f2126d6752b1f491eda8 (patch) | |
tree | fe4b1ee7ea93b01c871f4d3d6f376db9ff26e334 | |
parent | a16f5e88cd682faaae42f1240a6e035f9a219460 (diff) |
with-editor-usage-message: Cosmetics
-rw-r--r-- | with-editor.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/with-editor.el b/with-editor.el index f8f4da8..398e293 100644 --- a/with-editor.el +++ b/with-editor.el @@ -447,11 +447,12 @@ or \\[with-editor-cancel] to cancel") (defun with-editor-usage-message () ;; Run after `server-execute', which is run using ;; a timer which starts immediately. - (run-with-timer - 0.05 nil - `(lambda () - (with-current-buffer ,(current-buffer) - (message (substitute-command-keys with-editor-usage-message)))))) + (let ((buffer (current-buffer))) + (run-with-timer + 0.05 nil + (lambda () + (with-current-buffer buffer + (message (substitute-command-keys with-editor-usage-message))))))) ;;; Wrappers |