branch: elpa/with-editor
commit 4f06aba28fb87f991ec7f2126d6752b1f491eda8
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
with-editor-usage-message: Cosmetics
---
with-editor.el | 11 ++++++-----
1 file 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
