mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Richard M. Stallman 1996-08-31 22:03:30 +00:00
parent fa9e8864b4
commit abd89b8031
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/faces.el
View file

@ -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)