# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 865057054 0
# Node ID 89a58c1d8d2c70507bff1d576e9ba014b5e10d06
# Parent  b0aa97f95c056fed44f00be1ba699a034460fa3f
(make-face): Call make-face-internal only if defined.
(internal-set-face-1): Call set-face-attribute-internal
only if it is defined.

diff -r b0aa97f95c05 -r 89a58c1d8d2c lisp/faces.el
--- a/lisp/faces.el	Sat May 31 05:32:56 1997 +0000
+++ b/lisp/faces.el	Sat May 31 05:37:34 1997 +0000
@@ -403,7 +403,9 @@
 	    (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 @@
 	(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)