emacs-diffs
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]