# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1234243612 0
# Node ID 50624469b15a2b11969f0d5db571d97114a664c6
# Parent  8074f7b698188e7badf4e4475af0dbf8136eae70
Fix stupidity in previous change.

diff -r 8074f7b69818 -r 50624469b15a lisp/speedbar.el
--- a/lisp/speedbar.el	Tue Feb 10 05:23:35 2009 +0000
+++ b/lisp/speedbar.el	Tue Feb 10 05:26:52 2009 +0000
@@ -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