From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 31 Aug 1996 22:03:30 +0000 (+0000)
Subject: (internal-set-face-1): When calling x-list-fonts, ask for just one match.
X-Git-Tag: emacs-20.1~3942
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abd89b803137814128d5ca2da52bf0f9e71ccfcc;p=emacs.git

(internal-set-face-1): When calling x-list-fonts, ask for just one match.
---

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)