Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-22 12:57:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

(font-lock-make-faces): Determine font-lock-background-mode from color

Browse source 
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.
This commit is contained in:
Richard M. Stallman 1995-04-16 05:41:53 +00:00
parent 891eb3fef5
commit 61392e7b04
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/font-lock.el
View file

@ -209,6 +209,9 @@ Resources can be used to over-ride these face attributes. For example, the
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 @@ See `font-lock-make-face' and `list-faces-display'."
"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 @@ See `font-lock-make-face' and `list-faces-display'."
(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 @@ fontification occurs only if the buffer is less than `font-lock-maximum-size'.
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 @@ and `font-lock-keywords-case-fold-search' using `font-lock-defaults-alist'."
;; 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)))