mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

* fast-lock.el (fast-lock-save-cache-1):

Browse Source 
(fast-lock-cache-data): When using with-temp-message, use nil rather
        than current-message.
This commit is contained in:
Simon Marshall 1999-01-06 10:22:13 +00:00
parent 20af777c0f
commit b66d85334b
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/fast-lock.el
View File

@ -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))))