diff options
| author | Chong Yidong | 2005-11-24 21:05:33 +0000 |
|---|---|---|
| committer | Chong Yidong | 2005-11-24 21:05:33 +0000 |
| commit | ae34cba19b587572dcdf7f3a42f6f2666216c5d9 (patch) | |
| tree | a9bce290bd0bcf7443605a7352697d2190a016c9 | |
| parent | 963b20402dd726ecdf6747c91391e60e36b056fe (diff) | |
| download | emacs-ae34cba19b587572dcdf7f3a42f6f2666216c5d9.tar.gz emacs-ae34cba19b587572dcdf7f3a42f6f2666216c5d9.zip | |
Fix two omissions in last change.
| -rw-r--r-- | lisp/hi-lock.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index ceb8900f941..c477b6d85a2 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -297,7 +297,7 @@ is found. A mode is excluded if it's in the list `hi-lock-exclude-modes'." | |||
| 297 | (when hi-lock-file-patterns | 297 | (when hi-lock-file-patterns |
| 298 | (font-lock-remove-keywords nil hi-lock-file-patterns) | 298 | (font-lock-remove-keywords nil hi-lock-file-patterns) |
| 299 | (setq hi-lock-file-patterns nil)) | 299 | (setq hi-lock-file-patterns nil)) |
| 300 | (if font-lock-mode (hi-lock-refontify)) | 300 | (hi-lock-refontify) |
| 301 | (define-key-after menu-bar-edit-menu [hi-lock] nil) | 301 | (define-key-after menu-bar-edit-menu [hi-lock] nil) |
| 302 | (remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook t))) | 302 | (remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook t))) |
| 303 | 303 | ||
| @@ -516,8 +516,8 @@ not suitable." | |||
| 516 | (defun hi-lock-refontify () | 516 | (defun hi-lock-refontify () |
| 517 | "Unfontify then refontify buffer. Used when hi-lock patterns change." | 517 | "Unfontify then refontify buffer. Used when hi-lock patterns change." |
| 518 | (interactive) | 518 | (interactive) |
| 519 | (unless font-lock-mode (font-lock-mode 1)) | 519 | (if font-lock-mode |
| 520 | (font-lock-fontify-buffer)) | 520 | (font-lock-fontify-buffer))) |
| 521 | 521 | ||
| 522 | (defun hi-lock-find-patterns () | 522 | (defun hi-lock-find-patterns () |
| 523 | "Find patterns in current buffer for hi-lock." | 523 | "Find patterns in current buffer for hi-lock." |