[Emacs-diffs] master 9723782: Use help-mode xrefs in describe-font

[Noam Postavsky]

branch: master
commit 9723782161f9b1ea6c3ce883acdc1090172b01c3
Author: Alexander Gramiak <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Use help-mode xrefs in describe-font
    
    * lisp/international/mule-diag.el (describe-font): Use help-setup-xref
    (Bug#27890).
---
 lisp/international/mule-diag.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index c274621..655a5ca 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)))))