# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1041815534 0
# Node ID 58d5f88f985b27c8ad0d05e8041bc3203eed5b70
# Parent  7f05ba2b8954f8190bd5eaef1c3368b6c4a0db32
(x-complement-fontset-spec): If a fontname doesn't conform to XLFD
format, try to get XLFD name by x-list-fonts.

diff -r 7f05ba2b8954 -r 58d5f88f985b lisp/international/fontset.el
--- a/lisp/international/fontset.el	Fri Jan 03 20:25:06 2003 +0000
+++ b/lisp/international/fontset.el	Mon Jan 06 01:12:14 2003 +0000
@@ -552,7 +552,9 @@
     (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)))