diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/international/fontset.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index e0f21f5f6e3..a48d7db5a56 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -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))) |