From 347437a5dcbdd4c5606b1ecdbe9ed90dab3d3e12 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 19 Jun 2009 14:22:39 +0000 Subject: * 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'. --- lisp/ChangeLog | 6 ++++++ lisp/font-core.el | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6b91985ed3..5d4b3c5604 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-06-19 David Casperson (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 * subr.el (open-network-stream): Doc fix. diff --git a/lisp/font-core.el b/lisp/font-core.el index b94c080484..88c67d8dec 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -291,7 +291,7 @@ means that Font Lock mode is turned on for buffers in C and C++ modes only." 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)))) -- cgit v1.2.3