mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Update from author.

Browse Source
This commit is contained in:
Gerd Moellmann 2000-11-28 22:32:46 +00:00
parent e0b2312878
commit 99879a40e5
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -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

7
lisp/hi-lock.el
View File

@ -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