Mercurial > emacs

changeset 18063:89a58c1d8d2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(make-face): Call make-face-internal only if defined. (internal-set-face-1): Call set-face-attribute-internal only if it is defined.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 May 1997 05:37:34 +0000
parents b0aa97f95c05
children a76beaa93249
files lisp/faces.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)