From bd3ecfef8429aaced824286074abc7f77ef0c98f Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 28 Oct 2020 14:46:43 +0100 Subject: [PATCH] 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. --- lisp/emacs-lisp/shortdoc.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el index 39ba7ee6dba..1231e799edd 100644 --- 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)) -- 2.39.5