(global-font-lock-mode): When turning off

Global Font Lock mode, turn off Font Lock mode everywhere.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index d424ab7c0ebcfd555df64079909e0265297d70f8..f06caa531c4fca9eb11800de50e556f566915abe 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -813,17 +813,23 @@ Returns the new status of Global Font Lock mode (non-nil means on).
 When Global Font Lock mode is enabled, Font Lock mode is automagically
 turned on in a buffer if its major mode is one of `font-lock-global-modes'."
   (interactive "P\np")
-  (let ((off-p (if arg
-                  (<= (prefix-numeric-value arg) 0)
-                global-font-lock-mode)))
-    (if off-p
-       (remove-hook 'find-file-hooks 'turn-on-font-lock-if-enabled)
-      (add-hook 'find-file-hooks 'turn-on-font-lock-if-enabled)
-      (add-hook 'post-command-hook 'turn-on-font-lock-if-enabled)
-      (setq font-lock-buffers (buffer-list)))
+  (let ((on-p (if arg
+                 (> (prefix-numeric-value arg) 0)
+               (not global-font-lock-mode))))
+    (cond (on-p
+          (add-hook 'find-file-hooks 'turn-on-font-lock-if-enabled)
+          (add-hook 'post-command-hook 'turn-on-font-lock-if-enabled)
+          (setq font-lock-buffers (buffer-list)))
+         (t
+          (remove-hook 'find-file-hooks 'turn-on-font-lock-if-enabled)
+          (mapcar (function (lambda (buffer)
+                              (with-current-buffer buffer
+                                (when font-lock-mode
+                                  (font-lock-mode)))))
+                  (buffer-list))))
     (when message
-      (message "Global Font Lock mode is now %s." (if off-p "OFF" "ON")))
-    (setq global-font-lock-mode (not off-p))))
+      (message "Global Font Lock mode %s" (if on-p "enabled" "disabled")))
+    (setq global-font-lock-mode on-p)))
 
 ;; Naughty hack.  This variable was originally a `defvar' to keep track of
 ;; whether Global Font Lock mode was turned on or not.  As a `defcustom' with