Mercurial > emacs

diff lisp/faces.el @ 16002:c8cbde1d3f11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(internal-set-face-1): When calling x-list-fonts, ask for just one match.
author Richard M. Stallman <rms@gnu.org>
date Sat, 31 Aug 1996 22:03:30 +0000
parents ea80dae13b2f
children 01511a730dd8
line wrap: on
line diff
--- a/lisp/faces.el	Sat Aug 31 21:53:53 1996 +0000
+++ b/lisp/faces.el	Sat Aug 31 22:03:30 1996 +0000
@@ -675,7 +675,7 @@
        (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)