Mercurial > emacs
changeset 30126:f5fd9fcdaeb2
(describe-font): Adjusted for the chnage of fontset-info.
(print-fontset): Likewise.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 10 Jul 2000 04:03:01 +0000 |
| parents | 97a26ae985ea |
| children | 0488ee625272 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Mon Jul 10 04:02:14 2000 +0000 +++ b/lisp/international/mule-diag.el Mon Jul 10 04:03:01 2000 +0000 @@ -1023,7 +1023,7 @@ (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 @@ ;; 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")