[Emacs-diffs] emacs/lisp ChangeLog font-core.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/06/19 14:22:45

Modified files:
        lisp           : ChangeLog font-core.el 

Log message:
        * 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'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15698&r2=1.15699
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/font-core.el?cvsroot=emacs&r1=1.54&r2=1.55

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15698
retrieving revision 1.15699
diff -u -b -r1.15698 -r1.15699
--- ChangeLog   19 Jun 2009 03:06:40 -0000      1.15698
+++ ChangeLog   19 Jun 2009 14:22:39 -0000      1.15699
@@ -1,3 +1,9 @@
+2009-06-19  David Casperson  <address@hidden>  (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  <address@hidden>
 
        * subr.el (open-network-stream): Doc fix.

Index: font-core.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/font-core.el,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- font-core.el        5 Jan 2009 03:19:11 -0000       1.54
+++ font-core.el        19 Jun 2009 14:22:45 -0000      1.55
@@ -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))))