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