* lisp/help.el (help-function-arglist): Don't `substitute-command-keys`

(cherry picked from commit 48b6e6bd80f2783c6320db1f7e8fb0b3f44e2e9d)

diff --git a/lisp/help.el b/lisp/help.el
index 1610707e7b9e607908755a2dfb90c303cd71422c..47992776bb71ba2b9dae4682ffe17092d20228fd 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -2357,7 +2357,7 @@ the same names as used in the original source code, when possible."
    ((or (and (byte-code-function-p def) (integerp (aref def 0)))
         (subrp def) (module-function-p def))
     (or (when preserve-names
-          (let* ((doc (condition-case nil (documentation def) (error nil)))
+          (let* ((doc (condition-case nil (documentation def 'raw) (error nil)))
                  (docargs (if doc (car (help-split-fundoc doc nil))))
                  (arglist (if docargs
                               (cdar (read-from-string (downcase docargs)))))