martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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")