From 60a719b0b1fcadb382a4d9b8ec2bd1fd712fdf52 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 May 1997 05:37:34 +0000 Subject: [PATCH] (make-face): Call make-face-internal only if defined. (internal-set-face-1): Call set-face-attribute-internal only if it is defined. --- lisp/faces.el | 7 +++++-- 1 file 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) -- 2.39.5