From: Kenichi Handa Date: Mon, 6 Jan 2003 01:12:14 +0000 (+0000) Subject: (x-complement-fontset-spec): If a fontname doesn't conform to XLFD X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~140 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dcda246bb99ffb8f0a7773bfcebe90aa193573df;p=emacs.git (x-complement-fontset-spec): If a fontname doesn't conform to XLFD format, try to get XLFD name by x-list-fonts. --- 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)))