From 3e8017d240bfbc355d6037bcc513879be0dbc689 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 10 Jul 2000 04:03:01 +0000 Subject: [PATCH] (describe-font): Adjusted for the chnage of fontset-info. (print-fontset): Likewise. --- lisp/international/mule-diag.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 431efedb9fc..33cb9fee136 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -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") -- 2.39.2