forked from colonelpanic/dotfiles
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))
|
||||
(additional-forms (list docstring-form)))
|
||||
(when orig-interactive-form
|
||||
(push orig-interactive-form additional-forms))
|
||||
(nconc additional-forms (list orig-interactive-form)))
|
||||
`(lambda (&rest args)
|
||||
,@additional-forms
|
||||
(let ,forms
|
||||
|
Loading…
Reference in New Issue
Block a user