diff options
author | Kenichi Handa <[email protected]> | 1997-07-09 06:56:04 +0000 |
---|---|---|
committer | Kenichi Handa <[email protected]> | 1997-07-09 06:56:04 +0000 |
commit | 2167d18d4048e71cfe5baa27f64c5015eeb77294 (patch) | |
tree | 30c519ea3c2c324c5e6458fd7d1388b828057f6b /lisp/international/mule-diag.el | |
parent | fa2ea19a90b706aaa44817fb9c6e20c5218280a8 (diff) |
(print-fontset): Output format improved.
(describe-fontset): Likewise. Doc-string modified.
(list-fontsets): Likewise.
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r-- | lisp/international/mule-diag.el | 33 |
1 files changed, 16 insertions, 17 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index e7600df4af..4cce91c002 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) |