Mercurial > emacs

changeset 11467:bb7c9db199ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-make-faces): Determine font-lock-background-mode from color values of background color. (font-lock-make-faces-done): New variable. (font-lock-make-faces): Set font-lock-make-faces-done to t. Don't call it when loading the file. (font-lock-mode): Call font-lock-make-faces if not yet done.
author Richard M. Stallman <rms@gnu.org>
date Sun, 16 Apr 1995 05:41:53 +0000
parents 8fb524439d09
children 772f49d1969d
files lisp/font-lock.el
diffstat 1 files changed, 12 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Sun Apr 16 04:17:36 1995 +0000
+++ b/lisp/font-lock.el	Sun Apr 16 05:41:53 1995 +0000
@@ -209,6 +209,9 @@
 resource `Emacs.font-lock-comment-face.attributeUnderline' can be used to
 specify the UNDERLINE-P attribute for face `font-lock-comment-face'.")
 
+(defvar font-lock-make-faces-done nil
+  "Non-nil if have already set up the faces for Font-Lock mode.")
+
 (defun font-lock-make-faces ()
   "Make faces from `font-lock-face-attributes'.
 A default list is used if this is nil.
@@ -229,10 +232,9 @@
 					       "BackgroundMode"))
 		  (params (frame-parameters)))
 	      (cond (bg-resource (intern (downcase bg-resource)))
-		    ((or (string-equal "white"
-			  (downcase (cdr (assq 'foreground-color params))))
-			 (string-equal "black"
-			  (downcase (cdr (assq 'background-color params)))))
+		    ((< (apply '+ (x-color-values
+				   (cdr (assq 'background-color params))))
+			(/ (apply '+ (x-color-values "white")) 3))
 		     'dark)
 		    (t 'light)))))
   (if (null font-lock-face-attributes)
@@ -291,7 +293,8 @@
 		       (font-lock-variable-name-face "LightGoldenrod")
 		       (font-lock-type-face "PaleGreen")
 		       (font-lock-reference-face "Aquamarine")))))))
-  (mapcar 'font-lock-make-face font-lock-face-attributes))
+  (mapcar 'font-lock-make-face font-lock-face-attributes)
+  (setq font-lock-make-faces-done t))
 
 (defun font-lock-make-face (face-attributes)
   "Make a face from FACE-ATTRIBUTES.
@@ -583,6 +586,10 @@
 To fontify a buffer without turning on Font Lock mode, and regardless of buffer
 size, you can use \\[font-lock-fontify-buffer]."
   (interactive "P")
+
+  (or font-lock-make-faces-done
+      (font-lock-make-faces))
+
   (let ((on-p (if arg (> (prefix-numeric-value arg) 0) (not font-lock-mode))))
     (if (equal (buffer-name) " *Compiler Input*") ; hack for bytecomp...
 	(setq on-p nil))
@@ -928,10 +935,6 @@
 
 ;; Install ourselves:
 
-(if purify-flag
-    (add-hook 'after-init-hook 'font-lock-make-faces)
-  (font-lock-make-faces))
-
 (or (assq 'font-lock-mode minor-mode-alist)
     (setq minor-mode-alist (cons '(font-lock-mode " Font") minor-mode-alist)))