From 8db93e456a54b713b7f8a199382f72d27a0ff506 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 21 Nov 1993 07:23:17 +0000 Subject: [PATCH] (x-resolve-font-name): Undo previous change. --- lisp/faces.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 5abcd0927c2..765ed3f609c 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -439,9 +439,8 @@ also the same size as FACE on FRAME." (and (eq frame t) (setq frame nil)) (if pattern - (let ((fonts (x-list-fonts pattern - (if (face-font face) face nil) - frame))) + ;; Note that x-list-fonts has code to handle a face with nil as its font. + (let ((fonts (x-list-fonts pattern face frame))) (or fonts (if face (error "No fonts matching pattern are the same size as `%s'" -- 2.39.5