diff options
| author | Richard M. Stallman | 2002-08-19 00:54:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-08-19 00:54:48 +0000 |
| commit | 5a705496329d47b22f6120712a7aec4fab65b70b (patch) | |
| tree | 945350c6cb633b807c70d231593a14e83529f460 | |
| parent | 76f03778654494ef00728f78c51321099c228d41 (diff) | |
| download | emacs-5a705496329d47b22f6120712a7aec4fab65b70b.tar.gz emacs-5a705496329d47b22f6120712a7aec4fab65b70b.zip | |
(font-lock-mode): Set change-major-mode-hook locally.
| -rw-r--r-- | lisp/font-core.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/font-core.el b/lisp/font-core.el index 6becb967954..6b97afd3274 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el | |||
| @@ -209,8 +209,8 @@ your own function which is called when `font-lock-mode' is toggled via | |||
| 209 | (funcall font-lock-function font-lock-mode) | 209 | (funcall font-lock-function font-lock-mode) |
| 210 | ;; Arrange to unfontify this buffer if we change major mode later. | 210 | ;; Arrange to unfontify this buffer if we change major mode later. |
| 211 | (if font-lock-mode | 211 | (if font-lock-mode |
| 212 | (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer) | 212 | (add-hook 'change-major-mode-hook 'font-lock-unfontify-buffer nil t) |
| 213 | (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer))) | 213 | (remove-hook 'change-major-mode-hook 'font-lock-unfontify-buffer t))) |
| 214 | 214 | ||
| 215 | (defun font-lock-default-function (font-lock-mode) | 215 | (defun font-lock-default-function (font-lock-mode) |
| 216 | ;; Turn on Font Lock mode. | 216 | ;; Turn on Font Lock mode. |