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

Fix fontification in describe-key

Browse source 
* lisp/help.el (describe-key): Use insert instead of princ so that
text properties on the key descriptions survive.
This commit is contained in:
Lars Ingebrigtsen 2022-06-21 13:25:19 +02:00
parent 97950f2bc4
commit 7934bad23b
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/help.el
View file

@ -966,16 +966,16 @@ current buffer."
(with-help-window (help-buffer)
(when (> (length info-list) 1)
;; FIXME: Make this into clickable hyperlinks.
(princ "There were several key-sequences:\n\n")
(princ (mapconcat (lambda (info)
(pcase-let ((`(,_seq ,brief-desc ,_defn ,_locus)
info))
(concat " " brief-desc)))
info-list
"\n"))
(insert "There were several key-sequences:\n\n")
(insert (mapconcat (lambda (info)
(pcase-let ((`(,_seq ,brief-desc ,_defn ,_locus)
info))
(concat " " brief-desc)))
info-list
"\n"))
(when (delq nil on-link)
(princ "\n\nThose are influenced by `mouse-1-click-follows-link'"))
(princ "\n\nThey're all described below."))
(insert "\n\nThose are influenced by `mouse-1-click-follows-link'"))
(insert "\n\nThey're all described below."))
(pcase-dolist (`(,_seq ,brief-desc ,defn ,locus)
info-list)
(when defn
@ -983,10 +983,10 @@ current buffer."
(with-current-buffer standard-output
(insert "\n\n" (make-separator-line) "\n")))
(princ brief-desc)
(insert brief-desc)
(when locus
(princ (format " (found in %s)" locus)))
(princ ", which is ")
(insert (format " (found in %s)" locus)))
(insert ", which is ")
(describe-function-1 defn)))))))
(defun search-forward-help-for-help ()