From 586ab698cf75c114c85db9ae1534d24ed177a309 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 14 Apr 1994 09:31:18 +0000 Subject: [PATCH] (make-face-x-resource-internal): Don't mess with terminal frames. --- lisp/faces.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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)) -- 2.39.5