diff options
| -rw-r--r-- | lisp/obsolete/fast-lock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index 495e95706ca..0d8fcfadc58 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el @@ -226,10 +226,10 @@ (progn (when temp-message (setq current-message (current-message)) - (message temp-message)) + (message "%s" temp-message)) ,@body) (when temp-message - (message current-message)))))) + (message "%s" current-message)))))) ;; ;; We use this for compatibility with a future Emacs. (or (fboundp 'defcustom) |