# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 959317474 0
# Node ID 0b31a133aa224a69c4f339d4431813bd3bb4d5d1
# Parent  2068f55d4ffe999c185423970ab8961af9b9e798
(print-fontset): Combine family part
and registry part of the fontname by "-*-" instead of "-".

diff -r 2068f55d4ffe -r 0b31a133aa22 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Fri May 26 02:39:09 2000 +0000
+++ b/lisp/international/mule-diag.el	Fri May 26 05:04:34 2000 +0000
@@ -1079,8 +1079,8 @@
 	  (insert font-spec)
 	(if (car font-spec)
 	    (if (string-match "-" (car font-spec))
-		(insert "-" (car font-spec) "-")
-	      (insert "-*-" (car font-spec) "-"))
+		(insert "-" (car font-spec) "-*-")
+	      (insert "-*-" (car font-spec) "-*-"))
 	  (insert "-*-"))
 	(if (cdr font-spec)
 	    (if (string-match "-" (cdr font-spec))