mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(fast-lock-mode): Don't try to turn on

Browse Source 
font-lock-mode if it's off.  Print a warning instead.
This commit is contained in:
Stefan Monnier 2005-09-02 18:39:42 +00:00
parent 32eb2c08bc
commit 401723ab8e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/obsolete/fast-lock.el
View File

@ -379,8 +379,9 @@ For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events',
(if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode))))
(if (and fast-lock-mode (not font-lock-mode))
;; Turned on `fast-lock-mode' rather than `font-lock-mode'.
(let ((font-lock-support-mode 'fast-lock-mode))
(font-lock-mode t))
(progn
(message "Use font-lock-support-mode rather than calling fast-lock-mode")
(sit-for 2))
;; Let's get down to business.
(set (make-local-variable 'fast-lock-cache-timestamp) nil)
(set (make-local-variable 'fast-lock-cache-filename) nil)