branch: externals/org
commit 1afa553ed174c193f026c12c7ac6ea79214f427e
Author: Morgan Smith <[email protected]>
Commit: Ihor Radchenko <[email protected]>
Testing: Use `mapc' instead of `mapcar' when return value isn't used
* testing/lisp/test-ob.el
(test-ob/org-babel-remove-result--results-default):
* testing/lisp/test-org.el (test-org/indent-line):
Use `mapc' instead of `mapcar'.
---
testing/lisp/test-ob.el | 12 ++++++------
testing/lisp/test-org.el | 16 ++++++++--------
2 files changed, 14 insertions(+), 14 deletions(-)
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index 870296acf7..b786798d60 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -1185,16 +1185,16 @@ x
(ert-deftest test-ob/org-babel-remove-result--results-default ()
"Test `org-babel-remove-result' with default :results."
- (mapcar (lambda (language)
- (test-ob-verify-result-and-removed-result
- "\n"
- (concat
- "* org-babel-remove-result
+ (mapc (lambda (language)
+ (test-ob-verify-result-and-removed-result
+ "\n"
+ (concat
+ "* org-babel-remove-result
#+begin_src " language "
#+end_src
* next heading")))
- '("emacs-lisp")))
+ '("emacs-lisp")))
(ert-deftest test-ob/org-babel-results-indented-wrap ()
"Ensure that wrapped results are inserted correction when indented.
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index 8dd96a7a58..88c083defa 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -1186,14 +1186,14 @@ Otherwise, evaluate RESULT as an sexp and return its
result."
(current-indentation))))
;; After the end of the contents of a greater element or other
;; block, indent like the beginning of the element.
- (mapcar (lambda (type)
- (should
- (= 1
- (org-test-with-temp-text
- (format " #+BEGIN_%1$s\n Contents\n<point>#+END_%1$s" type)
- (org-indent-line)
- (current-indentation)))))
- '("CENTER" "COMMENT" "EXAMPLE" "EXPORT" "SRC" "VERSE"))
+ (mapc (lambda (type)
+ (should
+ (= 1
+ (org-test-with-temp-text
+ (format " #+BEGIN_%1$s\n Contents\n<point>#+END_%1$s" type)
+ (org-indent-line)
+ (current-indentation)))))
+ '("CENTER" "COMMENT" "EXAMPLE" "EXPORT" "SRC" "VERSE"))
;; On blank lines after a paragraph, indent like its last non-empty
;; line.
(should
