Mercurial > emacs

comparison 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
comparison
equal deleted inserted replaced
101922:8074f7b69818 101923:50624469b15a
4125 (and (boundp 'font-lock-global-modes) 4125 (and (boundp 'font-lock-global-modes)
4126 font-lock-global-modes 4126 font-lock-global-modes
4127 (if (eq font-lock-global-modes t) 4127 (if (eq font-lock-global-modes t)
4128 (setq font-lock-global-modes '(not speedbar-mode)) 4128 (setq font-lock-global-modes '(not speedbar-mode))
4129 (if (eq (car font-lock-global-modes) 'not) 4129 (if (eq (car font-lock-global-modes) 'not)
4130 (add-to-list 'font-lock-global-modes 'speedbar-mode t)))) 4130 (add-to-list 'font-lock-global-modes 'speedbar-mode t)
4131 ;; If f-l-g-m is a non-empty list that doesn't begin with not, there 4131 (setq font-lock-global-modes (delq 'speedbar-mode
4132 ;; is nothing we can do. 4132 font-lock-global-modes)))))
4133
4134 4133
4135 ;;; Obsolete variables and functions 4134 ;;; Obsolete variables and functions
4136 4135
4137 (define-obsolete-variable-alias 4136 (define-obsolete-variable-alias
4138 'speedbar-ignored-path-regexp 'speedbar-ignored-directory-regexp) 4137 'speedbar-ignored-path-regexp 'speedbar-ignored-directory-regexp)