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

This commit is contained in:
Stefan Monnier 2024-03-26 17:41:42 -04:00
parent e5d824b632
commit 48b6e6bd80

View file

@ -2353,7 +2353,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)))))