From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 15 Aug 2023 02:37:51 +0000 (-0400)
Subject: cl-generic.el: Fix docstring for methods with `cl-call-next-method`
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=be5917c2ea46982763462bacf3997cce83f1967b;p=emacs.git

cl-generic.el: Fix docstring for methods with `cl-call-next-method`

* lisp/emacs-lisp/cl-generic.el (cl--generic-method-info):
Fix docstring extraction for "curried" methods (bug#65270).
---

diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index b062c280a41..dec14bd5df6 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -1101,10 +1101,10 @@ MET-NAME is as returned by `cl--generic-load-hist-format'."
          (qualifiers   (cl--generic-method-qualifiers method))
          (call-con     (cl--generic-method-call-con method))
          (function     (cl--generic-method-function method))
-         (args (help-function-arglist (if (not (eq call-con 'curried))
-                                          function
-                                        (funcall function #'ignore))
-                                      'names))
+         (function (if (not (eq call-con 'curried))
+                              function
+                            (funcall function #'ignore)))
+         (args (help-function-arglist function 'names))
          (docstring (documentation function))
          (qual-string
           (if (null qualifiers) ""