Update from author.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e2f2d53b3472557aebc56494e67215f12d95e54..5012e0efde2eb4411a7957c5a68d268b8136ec7e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-11-28  Gerd Moellmann  <gerd@gnu.org>
 
+       * hi-lock.el: Update from author.
+
        * hscroll.el: Add hints to `automatic-hscrolling' to doc strings.
 
        * dired-aux.el (dired-do-create-files): Construct default file

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 4d4d978a1334663ecf095ec73e240324527519b9..697cfc52aca9e03b9682c514e0f2d1e2120f1168 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -119,8 +119,7 @@ calls."
   :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 @@ Optional argument END is maximum excursion."
   (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 @@ Optional argument END is maximum excursion."
 (provide 'hi-lock)
 
 ;;; hi-lock.el ends here
-
-