From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 May 1997 05:37:34 +0000 (+0000)
Subject: (make-face): Call make-face-internal only if defined.
X-Git-Tag: emacs-20.1~1883
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=60a719b0b1fcadb382a4d9b8ec2bd1fd712fdf52;p=emacs.git

(make-face): Call make-face-internal only if defined.
(internal-set-face-1): Call set-face-attribute-internal
only if it is defined.
---

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)