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.

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 39ba7ee6dbadaf5e149d36c53f3da221957cb491..1231e799eddb1f2dd417a318e2a09fcb252f9fb9 100644 (file)
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -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))