From 16cdf1417289cfe7808bc23f1ac9adce5ede93a4 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 22 Nov 2000 19:44:43 +0000 Subject: [PATCH] (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. --- lisp/hi-lock.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index cc152b928c6..4d4d978a133 100644 --- 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))) -- 2.39.5