From dcda246bb99ffb8f0a7773bfcebe90aa193573df Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 6 Jan 2003 01:12:14 +0000 Subject: [PATCH] (x-complement-fontset-spec): If a fontname doesn't conform to XLFD format, try to get XLFD name by x-list-fonts. --- lisp/international/fontset.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index e0f21f5f6e..a48d7db5a5 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))) -- 2.20.1