diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-05-31 05:37:34 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-05-31 05:37:34 +0000 |
commit | 2b231e7b4c0674e16760c29abe3e2df491eeacdf (patch) | |
tree | e6919b6d5f2f7f4ee4b1c402ecff8b5ba29c9271 /lisp/faces.el | |
parent | 7efed8df1d402914a22d6d2cad3f6f210d3458f0 (diff) | |
download | emacs-2b231e7b4c0674e16760c29abe3e2df491eeacdf.tar.gz |
(make-face): Call make-face-internal only if defined.
(internal-set-face-1): Call set-face-attribute-internal
only if it is defined.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 27092e18c17..8c6c09176ad 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -403,7 +403,9 @@ If NAME is already a face, it is simply returned." (if (eq name 'inverse-video) (or (eq value (aref internal-face index)) (invert-face face frame)) - (set-face-attribute-internal (face-id face) name value frame))) + (if (fboundp 'set-face-attribute-internal) + (set-face-attribute-internal (face-id face) + name value frame)))) (aset internal-face index value))))) @@ -474,7 +476,8 @@ If the face already exists, it is unmodified." (let* ((frames (frame-list)) (inhibit-quit t) (id (internal-next-face-id))) - (make-face-internal id) + (if (fboundp 'make-face-internal) + (make-face-internal id)) (aset face 2 id) (while frames (set-frame-face-alist (car frames) |