mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-28 19:42:02 +00:00
Code Issues Releases Activity

(make-face): Call make-face-internal only if defined.

Browse Source 
(internal-set-face-1): Call set-face-attribute-internal
only if it is defined.
This commit is contained in:
Richard M. Stallman 1997-05-31 05:37:34 +00:00
parent dcdcce1a92
commit 60a719b0b1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/faces.el
View File

@ -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)