aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGerd Moellmann2000-11-28 22:32:46 +0000
committerGerd Moellmann2000-11-28 22:32:46 +0000
commit99879a40e5096da221834bb823887ebe230f85aa (patch)
tree4c8231de1a3a7a756bda8429ab991e8c60f5ed1c
parente0b2312878bd2fe705feee08f07d7fec441e2d5a (diff)
downloademacs-99879a40e5096da221834bb823887ebe230f85aa.tar.gz
emacs-99879a40e5096da221834bb823887ebe230f85aa.zip
Update from author.
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/hi-lock.el7
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2e2f2d53b34..5012e0efde2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
12000-11-28 Gerd Moellmann <gerd@gnu.org> 12000-11-28 Gerd Moellmann <gerd@gnu.org>
2 2
3 * hi-lock.el: Update from author.
4
3 * hscroll.el: Add hints to `automatic-hscrolling' to doc strings. 5 * hscroll.el: Add hints to `automatic-hscrolling' to doc strings.
4 6
5 * dired-aux.el (dired-do-create-files): Construct default file 7 * 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."
119 :group 'hi-lock-interactive-text-highlighting) 119 :group 'hi-lock-interactive-text-highlighting)
120 120
121(defface hi-yellow 121(defface hi-yellow
122 '((((background dark)) 122 '((((background dark)) (:background "yellow" :foreground "black"))
123 (:background "yellow" :foreground "black"))
124 (t (:background "yellow"))) 123 (t (:background "yellow")))
125 "Default face for hi-lock mode." 124 "Default face for hi-lock mode."
126 :group 'hi-lock-faces) 125 :group 'hi-lock-faces)
@@ -478,7 +477,7 @@ Optional argument END is maximum excursion."
478 (interactive) 477 (interactive)
479 (font-lock-unfontify-buffer) 478 (font-lock-unfontify-buffer)
480 (cond 479 (cond
481 (jit-lock-mode nil) 480 (jit-lock-mode (jit-lock-refontify))
482 ;; Need a better way, since this assumes too much about lazy lock. 481 ;; Need a better way, since this assumes too much about lazy lock.
483 (lazy-lock-mode 482 (lazy-lock-mode
484 (let ((windows (get-buffer-window-list (current-buffer) 'nomini t))) 483 (let ((windows (get-buffer-window-list (current-buffer) 'nomini t)))
@@ -528,5 +527,3 @@ Optional argument END is maximum excursion."
528(provide 'hi-lock) 527(provide 'hi-lock)
529 528
530;;; hi-lock.el ends here 529;;; hi-lock.el ends here
531
532