[elpa] externals/transient 0a066156c0 138/366: define-{infix, suffix, transient}-command: Indicate docstring position

[Jonas Bernoulli]

branch: externals/transient
commit 0a066156c0a6e6d31d0ad1f39f6c380f2e4531bc
Author: Zhu Zihao <all_but_last@163.com>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    define-{infix,suffix,transient}-command: Indicate docstring position
---
 lisp/transient.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 94c2d75992..7bfadd722a 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -640,7 +640,8 @@ to the setup function:
                            [&optional lambda-doc]
                            [&rest keywordp sexp]
                            [&rest vectorp]
-                           [&optional ("interactive" interactive) def-body])))
+                           [&optional ("interactive" interactive) def-body]))
+           (doc-string 3))
   (pcase-let ((`(,class ,slots ,suffixes ,docstr ,body)
                (transient--expand-define-args args)))
     `(progn
@@ -679,7 +680,8 @@ ARGLIST.  The infix arguments are usually accessed by using
                            [&optional lambda-doc]
                            [&rest keywordp sexp]
                            ("interactive" interactive)
-                           def-body)))
+                           def-body))
+           (doc-string 3))
   (pcase-let ((`(,class ,slots ,_ ,docstr ,body)
                (transient--expand-define-args args)))
     `(progn
@@ -726,7 +728,8 @@ keyword.
 \(fn NAME ARGLIST [DOCSTRING] [KEYWORD VALUE]...)"
   (declare (debug (&define name lambda-list
                            [&optional lambda-doc]
-                           [&rest keywordp sexp])))
+                           [&rest keywordp sexp]))
+           (doc-string 3))
   (pcase-let ((`(,class ,slots ,_ ,docstr ,_)
                (transient--expand-define-args args)))
     `(progn