From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 2 Sep 2005 18:39:42 +0000 (+0000)
Subject: (fast-lock-mode): Don't try to turn on
X-Git-Tag: emacs-pretest-22.0.90~7273
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=401723ab8e4032c2e3446acda704f79580448615;p=emacs.git

(fast-lock-mode): Don't try to turn on
font-lock-mode if it's off.  Print a warning instead.
---

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)