From: Alexander Gramiak <agrambot@gmail.com>
Date: Sat, 5 Aug 2017 22:09:54 +0000 (-0600)
Subject: Use help-mode xrefs in describe-font
X-Git-Tag: emacs-26.0.90~498
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9723782161f9b1ea6c3ce883acdc1090172b01c3;p=emacs.git

Use help-mode xrefs in describe-font

* lisp/international/mule-diag.el (describe-font): Use help-setup-xref
(Bug#27890).
---

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index c274621f772..655a5ca6d4d 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -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))
+        font-info)
     (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)))))