# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1245421359 0
# Node ID 63c3de72850745bd2e3ab3bbe5df1d1f5fb1ca06
# Parent  02a52561a31482d629525abf2d00df6e960aa71d
* font-core.el (turn-on-font-lock-if-desired): Correctly handle
the case where font-lock-global-modes is a list that doesn't begin
with `not'.

diff -r 02a52561a314 -r 63c3de728507 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jun 19 13:45:19 2009 +0000
+++ b/lisp/ChangeLog	Fri Jun 19 14:22:39 2009 +0000
@@ -1,3 +1,9 @@
+2009-06-19  David Casperson  <casper@unbc.ca>  (tiny change)
+
+	* font-core.el (turn-on-font-lock-if-desired): Correctly handle
+	the case where font-lock-global-modes is a list that doesn't begin
+	with `not'.
+
 2009-06-19  Glenn Morris  <rgm@gnu.org>
 
 	* subr.el (open-network-stream): Doc fix.
diff -r 02a52561a314 -r 63c3de728507 lisp/font-core.el
--- a/lisp/font-core.el	Fri Jun 19 13:45:19 2009 +0000
+++ b/lisp/font-core.el	Fri Jun 19 14:22:39 2009 +0000
@@ -291,7 +291,7 @@
 	       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))))
+	      (t (memq major-mode font-lock-global-modes)))
     (let (inhibit-quit)
       (turn-on-font-lock))))