diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:36:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 04:36:41 +0000 |
| commit | a47d9087bc2322861944893825165c6e2b7c2c3d (patch) | |
| tree | 1f771f9b2bc0916206a96d5403d05d53959cc514 /lisp/font-lock.el | |
| parent | 925a622cbed336b85c461d07aac9728fe05df80c (diff) | |
| download | emacs-a47d9087bc2322861944893825165c6e2b7c2c3d.tar.gz | |
(font-lock-set-defaults): Do nothing if font-lock-keywords is already set.
Diffstat (limited to 'lisp/font-lock.el')
| -rw-r--r-- | lisp/font-lock.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 5081874ca90..9af71b86d89 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -409,16 +409,17 @@ This can take a while for large buffers." (defun font-lock-set-defaults () "Set `font-lock-keywords' to something appropriate for this mode." - (setq font-lock-keywords - (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords) - ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords) - ((eq major-mode 'c-mode) c-font-lock-keywords) - ((eq major-mode 'c++-c-mode) c-font-lock-keywords) - ((eq major-mode 'c++-mode) c++-font-lock-keywords) - ((eq major-mode 'perl-mode) perl-font-lock-keywords) - ((eq major-mode 'tex-mode) tex-font-lock-keywords) - ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) - (t nil)))) + (if (not font-lock-keywords) ; if not already set. + (setq font-lock-keywords + (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords) + ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords) + ((eq major-mode 'c-mode) c-font-lock-keywords) + ((eq major-mode 'c++-c-mode) c-font-lock-keywords) + ((eq major-mode 'c++-mode) c++-font-lock-keywords) + ((eq major-mode 'perl-mode) perl-font-lock-keywords) + ((eq major-mode 'tex-mode) tex-font-lock-keywords) + ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) + (t nil)))) (defconst lisp-font-lock-keywords-1 '(;; |