# HG changeset patch # User Gerd Moellmann # Date 975450741 0 # Node ID e2a51eb8b6cc7482ab781ff49089c2239d77894f # Parent 1eb189c313a94e76a3918d0fb7a391d1c636e365 Update from author. diff -r 1eb189c313a9 -r e2a51eb8b6cc lisp/hi-lock.el --- a/lisp/hi-lock.el Tue Nov 28 20:35:32 2000 +0000 +++ b/lisp/hi-lock.el Tue Nov 28 22:32:21 2000 +0000 @@ -119,8 +119,7 @@ :group 'hi-lock-interactive-text-highlighting) (defface hi-yellow - '((((background dark)) - (:background "yellow" :foreground "black")) + '((((background dark)) (:background "yellow" :foreground "black")) (t (:background "yellow"))) "Default face for hi-lock mode." :group 'hi-lock-faces) @@ -478,7 +477,7 @@ (interactive) (font-lock-unfontify-buffer) (cond - (jit-lock-mode nil) + (jit-lock-mode (jit-lock-refontify)) ;; Need a better way, since this assumes too much about lazy lock. (lazy-lock-mode (let ((windows (get-buffer-window-list (current-buffer) 'nomini t))) @@ -528,5 +527,3 @@ (provide 'hi-lock) ;;; hi-lock.el ends here - -