mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-08 12:40:49 -08:00
Code Issues Projects Releases Wiki Activity

(x-complement-fontset-spec): If a fontname doesn't conform to XLFD

Browse source 
format, try to get XLFD name by x-list-fonts.
This commit is contained in:
Kenichi Handa 2003-01-06 01:12:14 +00:00
parent ddbe25cd99
commit dcda246bb9
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/fontset.el
View file

@ -552,7 +552,9 @@ XLFD-FIELDS."
(dolist (elt fontlist)
(let ((name (cadr elt))
font-spec)
(when (string-match xlfd-style-regexp name)
(when (or (string-match xlfd-style-regexp name)
(and (setq name (car (x-list-fonts name nil nil 1)))
(string-match xlfd-style-regexp name)))
(setq font-spec (make-vector 6 nil))
(dotimes (i 6)
(aset font-spec i (match-string (1+ i) name)))