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
(Bug#27890).
parent 2ef880cc
...@@ -838,7 +838,8 @@ The font must be already used by Emacs." ...@@ -838,7 +838,8 @@ The font must be already used by Emacs."
(interactive "sFont name (default current choice for ASCII chars): ") (interactive "sFont name (default current choice for ASCII chars): ")
(or (and window-system (fboundp 'fontset-list)) (or (and window-system (fboundp 'fontset-list))
(error "No fonts being used")) (error "No fonts being used"))
(let (font-info) (let ((xref-item (list #'describe-font fontname))
font-info)
(if (or (not fontname) (= (length fontname) 0)) (if (or (not fontname) (= (length fontname) 0))
(setq fontname (face-attribute 'default :font))) (setq fontname (face-attribute 'default :font)))
(setq font-info (font-info fontname)) (setq font-info (font-info fontname))
...@@ -850,6 +851,7 @@ The font must be already used by Emacs." ...@@ -850,6 +851,7 @@ The font must be already used by Emacs."
;; this problem. ;; this problem.
(message "No information about \"%s\"" (font-xlfd-name fontname)) (message "No information about \"%s\"" (font-xlfd-name fontname))
(message "No matching font found")) (message "No matching font found"))
(help-setup-xref xref-item (called-interactively-p 'interactive))
(with-output-to-temp-buffer "*Help*" (with-output-to-temp-buffer "*Help*"
(describe-font-internal font-info))))) (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