Mercurial > emacs
comparison lisp/speedbar.el @ 101922:8074f7b69818
Avoid messing up font-lock-global-modes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 10 Feb 2009 05:23:35 +0000 |
| parents | a9dc0e7c3f2b |
| children | 50624469b15a |
comparison
equal
deleted
inserted
replaced
| 101921:7d0e7b6a2cbf | 101922:8074f7b69818 |
|---|---|
| 4120 (add-hook 'edebug-setup-hook | 4120 (add-hook 'edebug-setup-hook |
| 4121 (lambda () | 4121 (lambda () |
| 4122 (def-edebug-spec speedbar-with-writable def-body))) | 4122 (def-edebug-spec speedbar-with-writable def-body))) |
| 4123 | 4123 |
| 4124 ;; Fix a font lock problem for some versions of Emacs | 4124 ;; Fix a font lock problem for some versions of Emacs |
| 4125 (if (boundp 'font-lock-global-modes) | 4125 (and (boundp 'font-lock-global-modes) |
| 4126 (if (listp font-lock-global-modes) | 4126 font-lock-global-modes |
| 4127 (add-to-list 'font-lock-global-modes '(not speedbar-mode)) | 4127 (if (eq font-lock-global-modes t) |
| 4128 ) | 4128 (setq font-lock-global-modes '(not speedbar-mode)) |
| 4129 ) | 4129 (if (eq (car font-lock-global-modes) 'not) |
| 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 | |
| 4132 ;; is nothing we can do. | |
| 4130 | 4133 |
| 4131 | 4134 |
| 4132 ;;; Obsolete variables and functions | 4135 ;;; Obsolete variables and functions |
| 4133 | 4136 |
| 4134 (define-obsolete-variable-alias | 4137 (define-obsolete-variable-alias |