diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-07-07 00:53:02 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-07-07 00:53:02 +0000 |
| commit | 0434d5308375a6ef798e431e7f46c6c7848a4920 (patch) | |
| tree | 346e6ae059fc46781834794910e720ef38c9450d | |
| parent | 6360ccaa745c441c61d496dfea717f54d4a66bfd (diff) | |
| download | emacs-0434d5308375a6ef798e431e7f46c6c7848a4920.tar.gz | |
(print-fontset): Output format tuned.
(describe-fontset): Likewise.
(list-fontsets): Likewise.
| -rw-r--r-- | lisp/international/mule-diag.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index b7b3083d0ee..e7600df4af9 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -539,9 +539,9 @@ but contains full information about each coding systems." (setq style (concat style "reverse slant")))) (beginning-of-line) (insert fontset) - (indent-to 56) + (indent-to 58) (insert (if (> size 0) (format "%dx%d" size height) " ?")) - (indent-to 62) + (indent-to 64) (insert style "\n") (when print-fonts (insert " O Charset / Fontname\n" @@ -575,10 +575,10 @@ in the fontset). The letter `?' in this column means that the corresponding fontset is not yet used in any frame. The O column of each font contains one of the following letters. - o -- the font already opened - - -- the font not yet opened - x -- the font can't be opened - ? -- no font specified in FONTSET + o -- font already opened + - -- font not yet opened + x -- font can't be opened + ? -- no font specified The Charset column of each font contains a name of character set displayed by the font." @@ -598,8 +598,8 @@ displayed by the font." (with-output-to-temp-buffer "*Help*" (save-excursion (set-buffer standard-output) - (insert "Fontset-Name\t\t\t\t\t\tSize Style\n") - (insert "------------\t\t\t\t\t\t---- -----\n") + (insert "Fontset-Name\t\t\t\t\t\t Size Style\n") + (insert "------------\t\t\t\t\t\t ---- -----\n") (print-fontset fontset t))))) ;;;###autoload @@ -619,8 +619,8 @@ See the function `describe-fontset' for the format of the list." (with-output-to-temp-buffer "*Help*" (save-excursion (set-buffer standard-output) - (insert "Fontset-Name\t\t\t\t\t\tSize Style\n") - (insert "------------\t\t\t\t\t\t---- -----\n") + (insert "Fontset-Name\t\t\t\t\t\t Size Style\n") + (insert "------------\t\t\t\t\t\t ---- -----\n") (let ((fontsets (fontset-list))) (while fontsets (print-fontset (car fontsets) arg) |