mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(hi-lock-refontify): Don't call non-existent

Browse source 
jit-lock-fontify-buffer; it should anyway be unneccessary to
dp anything special when jit-lock is active.
(hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs.
This commit is contained in:
Gerd Moellmann 2000-11-22 19:44:43 +00:00
parent ddc3c69509
commit 16cdf14172
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/hi-lock.el
View file

@ -119,25 +119,26 @@ 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)
(defface hi-pink
'(((background dark) (:background "pink" :foreground "black"))
'((((background dark)) (:background "pink" :foreground "black"))
(t (:background "pink")))
"Face for hi-lock mode."
:group 'hi-lock-faces)
(defface hi-green
'(((background dark) (:background "green" :foreground "black"))
'((((background dark)) (:background "green" :foreground "black"))
(t (:background "green")))
"Face for hi-lock mode."
:group 'hi-lock-faces)
(defface hi-blue
'(((background dark) (:background "light blue" :foreground "black"))
'((((background dark)) (:background "light blue" :foreground "black"))
(t (:background "light blue")))
"Face for hi-lock mode."
:group 'hi-lock-faces)
@ -477,7 +478,7 @@ Optional argument END is maximum excursion."
(interactive)
(font-lock-unfontify-buffer)
(cond
(jit-lock-mode (jit-lock-fontify-buffer))
(jit-lock-mode nil)
;; 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)))