diff options
| author | Gerd Moellmann | 2000-11-28 22:32:46 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-11-28 22:32:46 +0000 |
| commit | 99879a40e5096da221834bb823887ebe230f85aa (patch) | |
| tree | 4c8231de1a3a7a756bda8429ab991e8c60f5ed1c | |
| parent | e0b2312878bd2fe705feee08f07d7fec441e2d5a (diff) | |
| download | emacs-99879a40e5096da221834bb823887ebe230f85aa.tar.gz emacs-99879a40e5096da221834bb823887ebe230f85aa.zip | |
Update from author.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 7 |
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 @@ | |||
| 1 | 2000-11-28 Gerd Moellmann <gerd@gnu.org> | 1 | 2000-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 | |||