diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-26 17:41:42 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2024-03-26 17:41:42 -0400 |
commit | 48b6e6bd80f2783c6320db1f7e8fb0b3f44e2e9d (patch) | |
tree | befcf8b80e8a9cc2ad2727e7c0cc4b3699b333f7 /lisp/help.el | |
parent | e5d824b632a68430535f6e94d911871eb0f3f772 (diff) | |
download | emacs-48b6e6bd80f2783c6320db1f7e8fb0b3f44e2e9d.tar.gz |
* lisp/help.el (help-function-arglist): Don't `substitute-command-keys`
Diffstat (limited to 'lisp/help.el')
-rw-r--r-- | lisp/help.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index bafe6032942..1ef46e394f3 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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))))) |