Mercurial > emacs
changeset 65317:547765a33579
(fast-lock-mode): Don't try to turn on
font-lock-mode if it's off. Print a warning instead.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 02 Sep 2005 18:39:42 +0000 |
| parents | d2d6a76016a7 |
| children | b6c099a49763 |
| files | lisp/obsolete/fast-lock.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/obsolete/fast-lock.el Fri Sep 02 18:37:55 2005 +0000 +++ b/lisp/obsolete/fast-lock.el Fri Sep 02 18:39:42 2005 +0000 @@ -379,8 +379,9 @@ (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)