Avoid messing up font-lock-global-modes.

This commit is contained in:
Glenn Morris
2009-02-10 05:23:35 +00:00
parent a35462a1b0
commit 0aeb3666c0
2 changed files with 10 additions and 5 deletions

View File

@@ -1,5 +1,7 @@
2009-02-10 Glenn Morris <rgm@gnu.org>
* speedbar.el: Avoid messing up font-lock-global-modes.
* mail/mail-utils.el (mail-use-rfc822): Remove * from defcustom doc.
(mail-file-babyl-p): Use with-temp-buffer.

View File

@@ -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