Fix let-around docstring/interactive-form order
This commit is contained in:
parent
7e40e085e6
commit
aa647ee190
@ -601,7 +601,7 @@ the ~:around~ keyword of advice-add.
|
|||||||
(docstring-form (format "Call `%s' with bindings: %s." orig-func forms))
|
(docstring-form (format "Call `%s' with bindings: %s." orig-func forms))
|
||||||
(additional-forms (list docstring-form)))
|
(additional-forms (list docstring-form)))
|
||||||
(when orig-interactive-form
|
(when orig-interactive-form
|
||||||
(push orig-interactive-form additional-forms))
|
(nconc additional-forms (list orig-interactive-form)))
|
||||||
`(lambda (&rest args)
|
`(lambda (&rest args)
|
||||||
,@additional-forms
|
,@additional-forms
|
||||||
(let ,forms
|
(let ,forms
|
||||||
|
Loading…
Reference in New Issue
Block a user