Mercurial > emacs

diff lisp/speedbar.el @ 101923:50624469b15a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix stupidity in previous change.
author Glenn Morris <rgm@gnu.org>
date Tue, 10 Feb 2009 05:26:52 +0000
parents 8074f7b69818
children ea67ac46d172
line wrap: on
line diff
--- 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