From: Kenichi Handa <handa@m17n.org>
Date: Wed, 9 Jul 1997 06:56:04 +0000 (+0000)
Subject: (print-fontset): Output format improved.
X-Git-Tag: emacs-20.1~1250
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2167d18d4048e71cfe5baa27f64c5015eeb77294;p=emacs.git

(print-fontset): Output format improved.
(describe-fontset): Likewise.  Doc-string modified.
(list-fontsets): Likewise.
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index e7600df4af9..4cce91c002c 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -505,9 +505,14 @@ but contains full information about each coding systems."
 ;;;###autoload
 (defun describe-font (fontname)
   "Display information about fonts which partially match FONTNAME."
-  (interactive "sFontname: ")
+  (interactive "sFontname (default, current choise for ASCII chars): ")
   (or window-system
       (error "No window system being used"))
+  (when (or (not fontname) (= (length fontname) 0))
+    (setq fontname (cdr (assq 'font (frame-parameters))))
+    (if (query-fontset fontname)
+	(setq fontname
+	      (nth 2 (assq 'ascii (aref (fontset-info fontname) 2))))))
   (let ((font-info (font-info fontname)))
     (if (null font-info)
 	(message "No matching font")
@@ -540,12 +545,12 @@ but contains full information about each coding systems."
     (beginning-of-line)
     (insert fontset)
     (indent-to 58)
-    (insert (if (> size 0) (format "%dx%d" size height) "  ?"))
+    (insert (if (> size 0) (format "%2dx%d" size height) "  -"))
     (indent-to 64)
     (insert style "\n")
     (when print-fonts
       (insert "  O Charset / Fontname\n"
-	      "  - -------\n")
+	      "  - ------------------\n")
       (sort-charset-list)
       (let ((l charset-list)
 	    charset font-info opened fontname)
@@ -569,10 +574,10 @@ but contains full information about each coding systems."
 It prints name, size, and style of FONTSET, and lists up fonts
 contained in FONTSET.
 
-The format of Size column is WIDTHxHEIGHT, where WIDTH and HEIGHT is
-the character sizes (pixels) of each fontset (i.e. those of ASCII font
-in the fontset).  The letter `?' in this column means that the
-corresponding fontset is not yet used in any frame.
+The column WDxHT contains width and height (pixels) of each fontset
+\(i.e. those of ASCII font 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 -- font already opened
@@ -598,8 +603,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\t  Size  Style\n")
-	(insert "------------\t\t\t\t\t\t  ----  -----\n")
+	(insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
+	(insert "------------\t\t\t\t\t\t  ----- -----\n")
 	(print-fontset fontset t)))))
 
 ;;;###autoload
@@ -607,20 +612,14 @@ displayed by the font."
   "Display a list of all fontsets.
 
 It prints name, size, and style of each fontset.
-
-The format of Size column is WIDTHxHEIGHT, where WIDHT and HEIGHT is
-the character sizes (pixels) of each fontset (i.e. those of ASCII font
-in the fontset).  The letter `?' in this column means that the
-corresponding fontset is not yet used in any frame.
-
 With prefix arg, it also lists up fonts contained in each fontset.
 See the function `describe-fontset' for the format of the list."
   (interactive "P")
   (with-output-to-temp-buffer "*Help*"
     (save-excursion
       (set-buffer standard-output)
-      (insert "Fontset-Name\t\t\t\t\t\t  Size  Style\n")
-      (insert "------------\t\t\t\t\t\t  ----  -----\n")
+      (insert "Fontset-Name\t\t\t\t\t\t  WDxHT Style\n")
+      (insert "------------\t\t\t\t\t\t  ----- -----\n")
       (let ((fontsets (fontset-list)))
 	(while fontsets
 	  (print-fontset (car fontsets) arg)