[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el |
Date: |
Thu, 20 Feb 2003 03:43:04 -0500 |
Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.85
emacs/lisp/international/mule-diag.el:1.86
*** emacs/lisp/international/mule-diag.el:1.85 Sun Jan 5 18:14:20 2003
--- emacs/lisp/international/mule-diag.el Thu Feb 20 03:43:04 2003
***************
*** 1057,1065 ****
--- 1057,1068 ----
(defun print-fontset (fontset &optional print-fonts)
"Print information about FONTSET.
+ If FONTSET is nil, print information about the default fontset.
If optional arg PRINT-FONTS is non-nil, also print names of all opened
fonts for FONTSET. This function actually inserts the information in
the current buffer."
+ (or fontset
+ (setq fontset (query-fontset "fontset-default")))
(let ((tail (aref (fontset-info fontset) 2))
elt chars font-spec opened prev-charset charset from to)
(beginning-of-line)
***************
*** 1138,1146 ****
"Fontset (default, used by the current frame): "
fontset-list nil t)))))
(if (= (length fontset) 0)
! (setq fontset (cdr (assq 'font (frame-parameters)))))
! (if (not (setq fontset (query-fontset fontset)))
! (error "Current frame is using font, not fontset"))
(help-setup-xref (list #'describe-fontset fontset) (interactive-p))
(with-output-to-temp-buffer (help-buffer)
(with-current-buffer standard-output
--- 1141,1148 ----
"Fontset (default, used by the current frame): "
fontset-list nil t)))))
(if (= (length fontset) 0)
! (setq fontset (frame-parameter nil 'font)))
! (setq fontset (query-fontset fontset))
(help-setup-xref (list #'describe-fontset fontset) (interactive-p))
(with-output-to-temp-buffer (help-buffer)
(with-current-buffer standard-output
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el,
Kenichi Handa <=