Mercurial > emacs

changeset 18643:c9b94c6ab8f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(print-fontset): Output format tuned. (describe-fontset): Likewise. (list-fontsets): Likewise.
author Kenichi Handa <handa@m17n.org>
date Mon, 07 Jul 1997 00:53:02 +0000
parents 0fc832264117
children 69c91eee7ba1
files lisp/international/mule-diag.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Mon Jul 07 00:53:02 1997 +0000
+++ b/lisp/international/mule-diag.el	Mon Jul 07 00:53:02 1997 +0000
@@ -539,9 +539,9 @@
 	   (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 @@
 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 @@
     (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 @@
   (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)