Run substitute-command-keys on shortdoc section headings

* lisp/emacs-lisp/shortdoc.el (shortdoc-display-group): Run
substitute-command-keys on section headings before displaying.
This commit is contained in:
Stefan Kangas 2020-10-28 14:46:43 +01:00
parent 6b3ed2375b
commit bd3ecfef84

View file

@ -1075,7 +1075,7 @@ There can be any number of :example/:result elements."
(unless (bobp)
(insert "\n"))
(insert (propertize
(concat data "\n\n")
(concat (substitute-command-keys data) "\n\n")
'face '(variable-pitch (:height 1.3 :weight bold)))))
;; There may be functions not yet defined in the data.
((fboundp (car data))