From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Oct 2007 17:27:58 +0000 (+0000)
Subject: (turn-on-font-lock-if-desired):
X-Git-Tag: emacs-pretest-23.0.90~10217
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35a46c5c555809907b547e28eab845895e315b39;p=emacs.git

(turn-on-font-lock-if-desired):
Renamed from `turn-on-font-lock-if-enabled'.
Fully obey `font-lock-global-modes'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fd75965a61..cba2388afd9 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2007-10-19  Richard Stallman  <rms@gnu.org>
+
+	* font-core.el (turn-on-font-lock-if-desired):
+	Renamed from `turn-on-font-lock-if-enabled'.
+	Fully obey `font-lock-global-modes'.
+
 2007-10-19  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* diff-mode.el (diff-fine-highlight-preproc): Stick to minimal changes
diff --git a/lisp/font-core.el b/lisp/font-core.el
index 7d7a65e83cc..b97550d2693 100644
--- a/lisp/font-core.el
+++ b/lisp/font-core.el
@@ -234,7 +234,7 @@ this function onto `change-major-mode-hook'."
 ;; hook is run, the major mode is in the process of being changed and we do not
 ;; know what the final major mode will be.  So, `font-lock-change-major-mode'
 ;; only (a) notes the name of the current buffer, and (b) adds our function
-;; `turn-on-font-lock-if-enabled' to the hook variables
+;; `turn-on-font-lock-if-desired' to the hook variables
 ;; `after-change-major-mode-hook' and `post-command-hook' (for modes
 ;; that do not yet run `after-change-major-mode-hook').  By the time
 ;; the functions on the first of these hooks to be run are run, the new major
@@ -281,14 +281,17 @@ means that Font Lock mode is turned on for buffers in C and C++ modes only."
 		      (repeat :inline t (symbol :tag "mode"))))
   :group 'font-lock)
 
-(defun turn-on-font-lock-if-enabled ()
-  (unless (and (eq (car-safe font-lock-global-modes) 'not)
-	       (memq major-mode (cdr font-lock-global-modes)))
+(defun turn-on-font-lock-if-desired ()
+  (when (cond ((eq font-lock-global-modes t)
+	       t)
+	      ((eq (car-safe font-lock-global-modes) 'not)
+	       (not (memq major-mode (cdr font-lock-global-modes))))
+	      (t (memq major-mode (cdr font-lock-global-modes))))
     (let (inhibit-quit)
       (turn-on-font-lock))))
 
 (define-globalized-minor-mode global-font-lock-mode
-  font-lock-mode turn-on-font-lock-if-enabled
+  font-lock-mode turn-on-font-lock-if-desired
   :extra-args (dummy)
   :initialize 'custom-initialize-safe-default
   :init-value (not (or noninteractive emacs-basic-display))