mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(font-lock-make-faces): Redo logic for whether

Browse source 
to call font-lock-make-face for a given face.
This commit is contained in:
Richard M. Stallman 1995-07-21 05:05:49 +00:00
parent 0314aacb41
commit acedc3e30b
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/font-lock.el
View file

@ -307,12 +307,12 @@ See `font-lock-make-face' and `list-faces-display'."
;; Now make the faces if we have to.
(mapcar (function (lambda (face-attributes)
(let ((face (nth 0 face-attributes)))
(if (and (not override) (facep face))
;; The face exists. Only set the variable if it's nil.
(if (or (not (boundp face)) (symbol-value face))
(set face face))
;; The face doesn't exist or we can stomp all over it anyway.
(font-lock-make-face face-attributes)))))
(if override
(font-lock-make-face face-attributes)
(if (not (and (boundp face) (facep (symbol-value face))))
(if (facep face)
(set face face)
(font-lock-make-face face-attributes)))))))
font-lock-face-attributes))
(defun font-lock-make-face (face-attributes)