From b66d85334bb3f5ce4e6191a2f1f31be84b3c8874 Mon Sep 17 00:00:00 2001 From: Simon Marshall Date: Wed, 6 Jan 1999 10:22:13 +0000 Subject: [PATCH] * fast-lock.el (fast-lock-save-cache-1): (fast-lock-cache-data): When using with-temp-message, use nil rather than current-message. --- lisp/fast-lock.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/lisp/fast-lock.el b/lisp/fast-lock.el index b9308a8265f..859ec239c42 100644 --- a/lisp/fast-lock.el +++ b/lisp/fast-lock.el @@ -217,10 +217,15 @@ ;; We use this for compatibility with a future Emacs. (or (fboundp 'with-temp-message) (defmacro with-temp-message (message &rest body) - (` (let ((current-message (current-message))) + (` (let ((temp-message (, message)) current-message) (unwind-protect - (progn (message (, message)) (,@ body)) - (message current-message)))))) + (progn + (when temp-message + (setq current-message (current-message)) + (message temp-message)) + (,@ body)) + (when temp-message + (message current-message))))))) ;; ;; We use this for compatibility with a future Emacs. (or (fboundp 'defcustom) @@ -574,9 +579,8 @@ See `fast-lock-cache-directory'." fast-lock-verbose)) (saved t)) (with-temp-message - (if verbose - (format "Saving %s font lock cache..." (buffer-name)) - (current-message)) + (when verbose + (format "Saving %s font lock cache..." (buffer-name))) (condition-case nil (save-excursion (print (list 'fast-lock-cache-data 3 @@ -631,9 +635,8 @@ See `fast-lock-cache-directory'." (not (equal keywords font-lock-keywords))) (setq loaded nil) (with-temp-message - (if verbose - (format "Loading %s font lock cache..." (buffer-name)) - (current-message)) + (when verbose + (format "Loading %s font lock cache..." (buffer-name))) (condition-case nil (fast-lock-add-properties syntactic-properties face-properties) (error (setq loaded 'error)) (quit (setq loaded 'quit)))) -- 2.39.2