changeset 33780:00803fb0f58e

(hi-lock-refontify): Don't call non-existent 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.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 22 Nov 2000 19:44:43 +0000
parents fc86d4af30bb
children 67e0378863cf
files lisp/hi-lock.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/hi-lock.el	Wed Nov 22 19:38:25 2000 +0000
+++ b/lisp/hi-lock.el	Wed Nov 22 19:44:43 2000 +0000
@@ -119,25 +119,26 @@
   :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 @@
   (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)))