procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(print-fontset): Output format improved.

Browse source 
(describe-fontset): Likewise.  Doc-string modified.
(list-fontsets): Likewise.
This commit is contained in:
Kenichi Handa 1997-07-09 06:56:04 +00:00
parent fa2ea19a90
commit 2167d18d40
1 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/international/mule-diag.el
View file

@ -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)