Fix let-around docstring/interactive-form order

This commit is contained in:
Ivan Malison 2016-08-12 14:58:11 -07:00
parent 7e40e085e6
commit aa647ee190
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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