Mercurial > emacs

changeset 67113:e5cb150b288f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix two omissions in last change.
author Chong Yidong <cyd@stupidchicken.com>
date Thu, 24 Nov 2005 21:05:33 +0000
parents 146389d32df6
children 440072194b4b
files lisp/hi-lock.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/hi-lock.el	Thu Nov 24 20:52:16 2005 +0000
+++ b/lisp/hi-lock.el	Thu Nov 24 21:05:33 2005 +0000
@@ -297,7 +297,7 @@
     (when hi-lock-file-patterns
       (font-lock-remove-keywords nil hi-lock-file-patterns)
       (setq hi-lock-file-patterns nil))
-    (if font-lock-mode (hi-lock-refontify))
+    (hi-lock-refontify)
     (define-key-after menu-bar-edit-menu [hi-lock] nil)
     (remove-hook 'font-lock-mode-hook 'hi-lock-font-lock-hook t)))
 
@@ -516,8 +516,8 @@
 (defun hi-lock-refontify ()
   "Unfontify then refontify buffer.  Used when hi-lock patterns change."
   (interactive)
-  (unless font-lock-mode (font-lock-mode 1))
-  (font-lock-fontify-buffer))
+  (if font-lock-mode
+      (font-lock-fontify-buffer)))
 
 (defun hi-lock-find-patterns ()
   "Find patterns in current buffer for hi-lock."