Mercurial > emacs

changeset 29228:0b31a133aa22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print-fontset): Combine family part and registry part of the fontname by "-*-" instead of "-".
author Kenichi Handa <handa@m17n.org>
date Fri, 26 May 2000 05:04:34 +0000
parents 2068f55d4ffe
children 582b7de32d82
files lisp/international/mule-diag.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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))