# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1125686382 0
# Node ID 547765a3357915b4435cb9c2ee3afd6c799941ff
# Parent  d2d6a76016a7bd7ccd9154052581b7b0e072ce94
(fast-lock-mode): Don't try to turn on
font-lock-mode if it's off.  Print a warning instead.

diff -r d2d6a76016a7 -r 547765a33579 lisp/obsolete/fast-lock.el
--- 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)