diff options
| author | Richard M. Stallman | 1993-12-23 04:36:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 04:36:41 +0000 |
| commit | a47d9087bc2322861944893825165c6e2b7c2c3d (patch) | |
| tree | 1f771f9b2bc0916206a96d5403d05d53959cc514 | |
| parent | 925a622cbed336b85c461d07aac9728fe05df80c (diff) | |
| download | emacs-a47d9087bc2322861944893825165c6e2b7c2c3d.tar.gz emacs-a47d9087bc2322861944893825165c6e2b7c2c3d.zip | |
(font-lock-set-defaults): Do nothing if font-lock-keywords is already set.
| -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." | |||
| 409 | 409 | ||
| 410 | (defun font-lock-set-defaults () | 410 | (defun font-lock-set-defaults () |
| 411 | "Set `font-lock-keywords' to something appropriate for this mode." | 411 | "Set `font-lock-keywords' to something appropriate for this mode." |
| 412 | (setq font-lock-keywords | 412 | (if (not font-lock-keywords) ; if not already set. |
| 413 | (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords) | 413 | (setq font-lock-keywords |
| 414 | ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords) | 414 | (cond ((eq major-mode 'lisp-mode) lisp-font-lock-keywords) |
| 415 | ((eq major-mode 'c-mode) c-font-lock-keywords) | 415 | ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords) |
| 416 | ((eq major-mode 'c++-c-mode) c-font-lock-keywords) | 416 | ((eq major-mode 'c-mode) c-font-lock-keywords) |
| 417 | ((eq major-mode 'c++-mode) c++-font-lock-keywords) | 417 | ((eq major-mode 'c++-c-mode) c-font-lock-keywords) |
| 418 | ((eq major-mode 'perl-mode) perl-font-lock-keywords) | 418 | ((eq major-mode 'c++-mode) c++-font-lock-keywords) |
| 419 | ((eq major-mode 'tex-mode) tex-font-lock-keywords) | 419 | ((eq major-mode 'perl-mode) perl-font-lock-keywords) |
| 420 | ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) | 420 | ((eq major-mode 'tex-mode) tex-font-lock-keywords) |
| 421 | (t nil)))) | 421 | ((eq major-mode 'texinfo-mode) texi-font-lock-keywords) |
| 422 | (t nil)))) | ||
| 422 | 423 | ||
| 423 | (defconst lisp-font-lock-keywords-1 | 424 | (defconst lisp-font-lock-keywords-1 |
| 424 | '(;; | 425 | '(;; |