From cebefb44f696b9c5172a5b2231432653a7b2ff9c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 26 May 2000 05:10:46 +0000 Subject: [PATCH] (print-fontset): Combine family part and registry part of the fontname by "-*-" instead of "-". --- lisp/ChangeLog | 3 +++ lisp/international/mule-diag.el | 4 ++-- src/ChangeLog | 3 +++ 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 + * 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 + * 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. -- 2.39.5