bug#3611: 23.0.94; Error in format-core

[David Casperson]

There is a bug in `turn-on-font-lock-if-desired' that causes it to miss
the first entry in font-lock-global modes in the case when the list does
not start with `not'.  A patch is enclosed below.

To make the bug manifest itself, put dired-mode first (and only once) on
the font-lock-global-modes list, and then switch to a new dired buffer.


*** font-core-buggy.el  2009-06-18 14:51:25.000000000 -0700
--- font-core-fixed.el  2009-06-18 14:51:42.000000000 -0700
***************
*** 291,297 ****
               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))))

--- 291,297 ----
               t)
              ((eq (car-safe font-lock-global-modes) 'not)
               (not (memq major-mode (cdr font-lock-global-modes))))
!             (t (memq major-mode font-lock-global-modes)))
      (let (inhibit-quit)
        (turn-on-font-lock))))



HTH,
David
--
Dr. David Casperson, Assistant Professor     |  casper@unbc.ca
Department of Computer Science               |  (250)   960-6672 Fax 960-5544
College of Science and Management            |  3333 University Way
University of Northern British Columbia      |  Prince George, BC   V2N 4Z9
                                             |  CANADA