# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766315878 0
# Node ID 086e14489073774fbce1a89a34237436c668274a
# Parent  7c12310c8b8665e15decd1d74756898e828ab3e7
(make-face-x-resource-internal): Don't mess with terminal frames.

diff -r 7c12310c8b86 -r 086e14489073 lisp/faces.el
--- a/lisp/faces.el	Thu Apr 14 09:06:25 1994 +0000
+++ b/lisp/faces.el	Thu Apr 14 09:31:18 1994 +0000
@@ -238,8 +238,9 @@
   (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))