procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use help-mode xrefs in describe-font

Browse source 
* lisp/international/mule-diag.el (describe-font): Use help-setup-xref
(Bug#27890).
This commit is contained in:
Alexander Gramiak 2017-08-05 16:09:54 -06:00 • committed by Noam Postavsky
parent 2ef880cc75
commit 9723782161
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/international/mule-diag.el
View file

@ -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)))))