(lazy-lock-mode): Don't try to turn on

font-lock-mode if it's off.  Print a warning instead.

1 files changed, 2 insertions, 2 deletions

diff --git a/lisp/obsolete/lazy-lock.el b/lisp/obsolete/lazy-lock.el
index d21d6e232b..eaef84a6ab 100644
--- a/lisp/obsolete/lazy-lock.el
+++ b/lisp/obsolete/lazy-lock.el
@@ -526,8 +526,8 @@ verbosity is controlled via the variable `lazy-lock-stealth-verbose'."
 		   (if arg (> (prefix-numeric-value arg) 0) (not was-on)))))
     (cond ((and now-on (not font-lock-mode))
 	   ;; Turned on `lazy-lock-mode' rather than `font-lock-mode'.
-	   (let ((font-lock-support-mode 'lazy-lock-mode))
-	     (font-lock-mode t)))
+           (message "Use font-lock-support-mode rather than calling lazy-lock-mode")
+           (sit-for 2))
 	  (now-on
 	   ;; Turn ourselves on.
 	   (set (make-local-variable 'lazy-lock-mode) t)