[Emacs-diffs] emacs/lisp speedbar.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/02/10 05:26:52

Modified files:
        lisp           : speedbar.el 

Log message:
        Fix stupidity in previous change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/speedbar.el?cvsroot=emacs&r1=1.102&r2=1.103

Patches:
Index: speedbar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/speedbar.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- speedbar.el 10 Feb 2009 05:23:38 -0000      1.102
+++ speedbar.el 10 Feb 2009 05:26:52 -0000      1.103
@@ -4127,10 +4127,9 @@
      (if (eq font-lock-global-modes t)
         (setq font-lock-global-modes '(not speedbar-mode))
        (if (eq (car font-lock-global-modes) 'not)
-          (add-to-list 'font-lock-global-modes 'speedbar-mode t))))
-;; If f-l-g-m is a non-empty list that doesn't begin with not, there
-;; is nothing we can do.
-
+          (add-to-list 'font-lock-global-modes 'speedbar-mode t)
+        (setq font-lock-global-modes (delq 'speedbar-mode
+                                           font-lock-global-modes)))))
 
 ;;; Obsolete variables and functions