Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(describe-font): Adjusted for the chnage of fontset-info.

Browse source 
(print-fontset): Likewise.
This commit is contained in:
Kenichi Handa 2000-07-10 04:03:01 +00:00
parent ab49ce154c
commit 3e8017d240
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1023,7 +1023,7 @@ but still contains full information about each coding system."
(setq fontname (cdr (assq 'font (frame-parameters))))
(if (query-fontset fontname)
(setq fontname
(nth 1 (assq 'ascii (fontset-info fontname))))))
(nth 1 (assq 'ascii (aref (fontset-info fontname) 2))))))
(let ((font-info (font-info fontname)))
(if (null font-info)
(message "No matching font")
@ -1034,7 +1034,7 @@ but still contains full information about each coding system."
;; non-nil, print also names of all opened fonts for FONTSET. This
;; function actually INSERT such information in the current buffer.
(defun print-fontset (fontset &optional print-fonts)
(let ((tail (cdr (fontset-info fontset)))
(let ((tail (aref (fontset-info fontset) 2))
elt chars font-spec opened prev-charset charset from to)
(beginning-of-line)
(insert "Fontset: " fontset "\n")