(print-fontset): Combine family part

and registry part of the fontname by "-*-" instead of "-".

3 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49124734b1f..9eca8065d8f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2000-05-26  Kenichi Handa  <handa@etl.go.jp>
 
+        * international/mule-diag.el (print-fontset): Combine family part
+        and registry part of the fontname by "-*-" instead of "-".
+
         * international/mule-cmds.el (encode-coding-char): Make strings
         multibyte before calling encode-coding-string.
 
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index bfe64a7ffda..39f50e1b487 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1079,8 +1079,8 @@ but still contains full information about each coding system."
           (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))
diff --git a/src/ChangeLog b/src/ChangeLog
index 59b7966bdfb..4f2fa2f47c3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2000-05-26  Kenichi Handa  <handa@etl.go.jp>
 
+        * fontset.c (syms_of_fontset): Adjust the font name for ascii of
+        the default fontset to what Emacs uses by default.
+
         * charset.c (init_charset_once): Set the table bytes_by_char_head
         correctly.