changeset 103490:63c3de728507

* 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'.
author Chong Yidong <cyd@stupidchicken.com>
date Fri, 19 Jun 2009 14:22:39 +0000
parents 02a52561a314
children 35e2bfc7107c
files lisp/ChangeLog lisp/font-core.el
diffstat 2 files changed, 7 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.
--- 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))))