From 401723ab8e4032c2e3446acda704f79580448615 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 2 Sep 2005 18:39:42 +0000 Subject: [PATCH] (fast-lock-mode): Don't try to turn on font-lock-mode if it's off. Print a warning instead. --- lisp/obsolete/fast-lock.el | 5 +++-- 1 file 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', (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)