Use `macroexp-parse-body'

* lisp/emacs-lisp/generator.el: (iter-defun): Use `macroexp-parse-body'.

* test/automated/generator-tests.el (cps-testcase): Use
(cps-test-declarations-preserved): New test.

2 files changed, 10 insertions, 0 deletions

diff --git a/test/ChangeLog b/test/ChangeLog
index 55f8c6c8eb8..4488aab701f 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -3,6 +3,7 @@
         * automated/generator-tests.el (cps-testcase): Use
         `cps-inhibit-atomic-optimization' instead of
         `cps-disable-atomic-optimization'.
+        (cps-test-declarations-preserved): New test.
 
         * automated/finalizer-tests.el (finalizer-basic)
         (finalizer-circular-reference, finalizer-cross-reference)
diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el
index 3ee65105597..d9c81b59a23 100644
--- a/test/automated/generator-tests.el
+++ b/test/automated/generator-tests.el
@@ -287,3 +287,12 @@ identical output.
     (should (equal (iter-next iter) 1))
     (should-error (iter-next iter))
     (should (equal nr-unwound 1))))
+
+(iter-defun generator-with-docstring ()
+  "Documentation!"
+  (declare (indent 5))
+  nil)
+
+(ert-deftest cps-test-declarations-preserved ()
+  (should (equal (documentation 'generator-with-docstring) "Documentation!"))
+  (should (equal (get 'generator-with-docstring 'lisp-indent-function) 5)))