From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 14 Apr 1994 09:31:18 +0000 (+0000)
Subject: (make-face-x-resource-internal): Don't mess with terminal frames.
X-Git-Tag: emacs-19.34~8980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=586ab698cf75c114c85db9ae1534d24ed177a309;p=emacs.git

(make-face-x-resource-internal): Don't mess with terminal frames.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 38d81e9eae6..06f3c4bdc3e 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -238,8 +238,9 @@ If the face already exists, it is unmodified."
   (cond ((null frame)
 	 (let ((frames (frame-list)))
 	   (while frames
-	     (make-face-x-resource-internal (face-name face)
-					    (car frames) set-anyway)
+	     (if (eq (framep (car frames)) 'x)
+		 (make-face-x-resource-internal (face-name face)
+						(car frames) set-anyway))
 	     (setq frames (cdr frames)))))
 	(t
 	 (setq face (internal-get-face (face-name face) frame))