diff options
| author | Stefan Monnier | 2005-09-02 18:39:42 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2005-09-02 18:39:42 +0000 |
| commit | 401723ab8e4032c2e3446acda704f79580448615 (patch) | |
| tree | 77b74618ce788f66acbf6b008b7b835ac1d92c11 | |
| parent | 32eb2c08bcbbefd726542684e4d598d9d1079764 (diff) | |
| download | emacs-401723ab8e4032c2e3446acda704f79580448615.tar.gz emacs-401723ab8e4032c2e3446acda704f79580448615.zip | |
(fast-lock-mode): Don't try to turn on
font-lock-mode if it's off. Print a warning instead.
| -rw-r--r-- | lisp/obsolete/fast-lock.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el index 8b7101b382a..495e95706ca 100644 --- a/lisp/obsolete/fast-lock.el +++ b/lisp/obsolete/fast-lock.el | |||
| @@ -379,8 +379,9 @@ For saving, see variables `fast-lock-minimum-size', `fast-lock-save-events', | |||
| 379 | (if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) | 379 | (if arg (> (prefix-numeric-value arg) 0) (not fast-lock-mode)))) |
| 380 | (if (and fast-lock-mode (not font-lock-mode)) | 380 | (if (and fast-lock-mode (not font-lock-mode)) |
| 381 | ;; Turned on `fast-lock-mode' rather than `font-lock-mode'. | 381 | ;; Turned on `fast-lock-mode' rather than `font-lock-mode'. |
| 382 | (let ((font-lock-support-mode 'fast-lock-mode)) | 382 | (progn |
| 383 | (font-lock-mode t)) | 383 | (message "Use font-lock-support-mode rather than calling fast-lock-mode") |
| 384 | (sit-for 2)) | ||
| 384 | ;; Let's get down to business. | 385 | ;; Let's get down to business. |
| 385 | (set (make-local-variable 'fast-lock-cache-timestamp) nil) | 386 | (set (make-local-variable 'fast-lock-cache-timestamp) nil) |
| 386 | (set (make-local-variable 'fast-lock-cache-filename) nil) | 387 | (set (make-local-variable 'fast-lock-cache-filename) nil) |