Commit 97237821 authored by Alexander Gramiak's avatar Alexander Gramiak Committed by Noam Postavsky
Browse files

Use help-mode xrefs in describe-font

* lisp/international/mule-diag.el (describe-font): Use help-setup-xref
parent 2ef880cc
......@@ -838,7 +838,8 @@ 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 (font-info)
(let ((xref-item (list #'describe-font fontname))
(if (or (not fontname) (= (length fontname) 0))
(setq fontname (face-attribute 'default :font)))
(setq font-info (font-info fontname))
......@@ -850,6 +851,7 @@ The font must be already used by Emacs."
;; this problem.
(message "No information about \"%s\"" (font-xlfd-name fontname))
(message "No matching font found"))
(help-setup-xref xref-item (called-interactively-p 'interactive))
(with-output-to-temp-buffer "*Help*"
(describe-font-internal font-info)))))
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