[nongnu] elpa/buttercup 0c1dcda 161/340: Fix docstring of buttercup--specs-and-suite

[ELPA Syncer]

branch: elpa/buttercup
commit 0c1dcda1e87dbb794c1f39afd3c68ab1e6c68262
Author: Ola Nilsson <ola.nilsson@gmail.com>
Commit: Jorgen Schäfer <Jorgen.Schaefer@gmail.com>

    Fix docstring of buttercup--specs-and-suite
---
 buttercup.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/buttercup.el b/buttercup.el
index 6b949b8..87b2e5f 100644
--- a/buttercup.el
+++ b/buttercup.el
@@ -728,17 +728,16 @@ See also `buttercup-define-matcher'."
   (buttercup-suites-total-specs-status suite-list 'failed))
 
 (defun buttercup--specs-and-suites (spec-or-suite-list)
-  "Return the number of specs defined in SPEC-OR-SUITE-LIST and its children."
+  "Return a flat list of all specs and suites in SPEC-OR-SUITE-LIST."
   (let ((specs-and-suites nil))
-    (dolist (spec-or-suite spec-or-suite-list)
+    (dolist (spec-or-suite spec-or-suite-list specs-and-suites)
       (setq specs-and-suites (append specs-and-suites
                                      (list spec-or-suite)))
       (when (buttercup-suite-p spec-or-suite)
         (setq specs-and-suites
               (append specs-and-suites
                       (buttercup--specs-and-suites
-                       (buttercup-suite-children spec-or-suite))))))
-    specs-and-suites))
+                       (buttercup-suite-children spec-or-suite))))))))
 
 (defun buttercup-suite-full-name (suite)
   "Return the full name of SUITE, which includes the names of the parents."