diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-02-10 05:23:35 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-02-10 05:23:35 +0000 |
| commit | 0aeb3666c01993e82d0ca98e757565bf34190f55 (patch) | |
| tree | 63bf06654e5ad99b1a582f21232d82b9ef286870 /lisp/speedbar.el | |
| parent | a35462a1b0588e71ccd3fa6e7d34696342d5cdba (diff) | |
| download | emacs-0aeb3666c01993e82d0ca98e757565bf34190f55.tar.gz | |
Avoid messing up font-lock-global-modes.
Diffstat (limited to 'lisp/speedbar.el')
| -rw-r--r-- | lisp/speedbar.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/speedbar.el b/lisp/speedbar.el index ac10f53aa41..ca2c102b35b 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -4122,11 +4122,14 @@ TEXT is the buffer's name, TOKEN and INDENT are unused." (def-edebug-spec speedbar-with-writable def-body))) ;; Fix a font lock problem for some versions of Emacs -(if (boundp 'font-lock-global-modes) - (if (listp font-lock-global-modes) - (add-to-list 'font-lock-global-modes '(not speedbar-mode)) - ) - ) +(and (boundp 'font-lock-global-modes) + font-lock-global-modes + (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. ;;; Obsolete variables and functions |