Commit 7736dabe authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(describe-font): Don't check fontset

here, and just call font-info.  Get the default font by from the
default face.
parent 22b7086b
2008-05-30 Kenichi Handa <handa@m17n.org>
* international/mule-diag.el (describe-font): Don't check fontset
here, and just call font-info. Get the default font by from the
default face.
2008-05-29 Kenichi Handa <handa@m17n.org>
* international/mule-conf.el (utf-8-sig, utf-8-auto): New coding
......
......@@ -835,23 +835,18 @@ The font must be already used by Emacs."
(interactive "sFont name (default current choice for ASCII chars): ")
(or (and window-system (fboundp 'fontset-list))
(error "No fonts being used"))
(let (fontset font-info)
(when (or (not fontname) (= (length fontname) 0))
(setq fontname (frame-parameter nil 'font))
;; Check if FONTNAME is a fontset.
(if (query-fontset fontname)
(setq fontset fontname
fontname (nth 1 (assq 'ascii
(aref (fontset-info fontname) 2))))))
(let (font-info)
(if (or (not fontname) (= (length fontname) 0))
(setq fontname (face-attribute 'default :font)))
(setq font-info (font-info fontname))
(if (null font-info)
(if fontset
(if (fontp fontname 'font-object)
;; The font should be surely used. So, there's some
;; problem about getting information about it. It is
;; better to print the fontname to show which font has
;; this problem.
(message "No information about \"%s\"" fontname)
(message "No matching font being used"))
(message "No information about \"%s\"" (font-xlfd-name fontname))
(message "No matching font found"))
(with-output-to-temp-buffer "*Help*"
(describe-font-internal font-info 'verbose)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment