diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2e2f2d53b34..5012e0efde2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2000-11-28 Gerd Moellmann + * 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 4d4d978a133..697cfc52aca 100644 --- 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 - -