diff options
| author | Lars Ingebrigtsen | 2022-01-24 11:55:57 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-01-24 11:56:35 +0100 |
| commit | 77b72f77b3a5d13fc6e71746dee2cf68305057e2 (patch) | |
| tree | f3fd8417442fb68285b068ac1e50dc2c0a64a2d6 | |
| parent | 806a1210070cc3ed9f6433bbd37e3975bc7b4e5c (diff) | |
| download | emacs-77b72f77b3a5d13fc6e71746dee2cf68305057e2.tar.gz emacs-77b72f77b3a5d13fc6e71746dee2cf68305057e2.zip | |
Make `font-lock-add-keywords' work in derived modes
* lisp/font-lock.el (font-lock-set-defaults): Make
`font-lock-add-keywords' work in derived modes (bug#24176).
| -rw-r--r-- | lisp/font-lock.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 083bfb8626b..d8a1fe399b6 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el | |||
| @@ -1906,8 +1906,9 @@ preserve `hi-lock-mode' highlighting patterns." | |||
| 1906 | Sets various variables using `font-lock-defaults' and | 1906 | Sets various variables using `font-lock-defaults' and |
| 1907 | `font-lock-maximum-decoration'." | 1907 | `font-lock-maximum-decoration'." |
| 1908 | ;; Set fontification defaults if not previously set for correct major mode. | 1908 | ;; Set fontification defaults if not previously set for correct major mode. |
| 1909 | (unless (and font-lock-set-defaults | 1909 | (when (or (not font-lock-set-defaults) |
| 1910 | (eq font-lock-major-mode major-mode)) | 1910 | (not font-lock-major-mode) |
| 1911 | (not (derived-mode-p font-lock-major-mode))) | ||
| 1911 | (setq font-lock-major-mode major-mode) | 1912 | (setq font-lock-major-mode major-mode) |
| 1912 | (setq font-lock-set-defaults t) | 1913 | (setq font-lock-set-defaults t) |
| 1913 | (let* ((defaults font-lock-defaults) | 1914 | (let* ((defaults font-lock-defaults) |