(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.

diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index cc152b928c684bc36c4549c37327da7fa719dfc2..4d4d978a1334663ecf095ec73e240324527519b9 100644 (file)
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -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)))