From abd89b803137814128d5ca2da52bf0f9e71ccfcc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 31 Aug 1996 22:03:30 +0000 Subject: [PATCH] (internal-set-face-1): When calling x-list-fonts, ask for just one match. --- lisp/faces.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index 8c199fcfb70..02de29f02b4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -675,7 +675,7 @@ also the same size as FACE on FRAME, or fail." (setq frame nil)) (if pattern ;; Note that x-list-fonts has code to handle a face with nil as its font. - (let ((fonts (x-list-fonts pattern face frame))) + (let ((fonts (x-list-fonts pattern face frame 1))) (or fonts (if face (if (string-match "\\*" pattern) -- 2.39.2