Commit abd89b80 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent fa9e8864
...@@ -675,7 +675,7 @@ also the same size as FACE on FRAME, or fail." ...@@ -675,7 +675,7 @@ also the same size as FACE on FRAME, or fail."
(setq frame nil)) (setq frame nil))
(if pattern (if pattern
;; Note that x-list-fonts has code to handle a face with nil as its font. ;; 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 (or fonts
(if face (if face
(if (string-match "\\*" pattern) (if (string-match "\\*" pattern)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment