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

This commit is contained in:
Stefan Monnier
2026-04-02 15:53:40 -04:00
parent e6d97dfbe1
commit 99f2e353e7

View File

@@ -2360,7 +2360,7 @@ the same names as used in the original source code, when possible."
(let ((seen nil))
;; Advice wrappers have "catch all" args, so fetch the actual underlying
;; 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)
(setq def (advice--cd*r (indirect-function def)))))
;; If definition is a macro, find the function inside it.