branch: elpa/buttercup commit 0c1dcda1e87dbb794c1f39afd3c68ab1e6c68262 Author: Ola Nilsson <ola.nils...@gmail.com> Commit: Jorgen Schäfer <jorgen.schae...@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."