martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/help.el (help-function-arglist): Fix last change

Browse Source
This commit is contained in:
Stefan Monnier
2026-04-02 15:53:40 -04:00
parent e6d97dfbe1
commit 99f2e353e7
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/help.el
View File

@@ -2360,7 +2360,7 @@ the same names as used in the original source code, when possible."
(let ((seen nil)) (let ((seen nil))
;; Advice wrappers have "catch all" args, so fetch the actual underlying ;; Advice wrappers have "catch all" args, so fetch the actual underlying
;; function to find the real arguments. Also follow aliases. ;; function to find the real arguments. Also follow aliases.
(while (and (symbolp def) (not (memq def seen))) (while (not (memq def seen))
(push def seen) (push def seen)
(setq def (advice--cd*r (indirect-function def))))) (setq def (advice--cd*r (indirect-function def)))))
;; If definition is a macro, find the function inside it. ;; If definition is a macro, find the function inside it.