diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-07-21 05:05:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-07-21 05:05:49 +0000 |
| commit | acedc3e30b2e4377d1050914bb41b7ba58fe99df (patch) | |
| tree | df28090ee3419f9caff3a94018c751acaa62a00d | |
| parent | 0314aacb412ab1015f063d31e4b43ef7c6935c9e (diff) | |
| download | emacs-acedc3e30b2e4377d1050914bb41b7ba58fe99df.tar.gz | |
(font-lock-make-faces): Redo logic for whether
to call font-lock-make-face for a given face.
| -rw-r--r-- | lisp/font-lock.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el index 51cdb033d28..2b5f603973f 100644 --- a/lisp/font-lock.el +++ b/lisp/font-lock.el @@ -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) |