From 20aea4293439281570c5c05d3f54bc5b261a4d0f Mon Sep 17 00:00:00 2001 From: Nicolas Petton Date: Wed, 11 Nov 2015 17:53:41 +0100 Subject: [PATCH] Rename obarray-foreach to obarray-map * lisp/obarray.el (obarray-map): New name. * test/automated/obarray-tests.el: Update the corresponding tests. --- lisp/obarray.el | 2 +- test/automated/obarray-tests.el | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/obarray.el b/lisp/obarray.el index fb7a333b8b5..0e57381a9c5 100644 --- a/lisp/obarray.el +++ b/lisp/obarray.el @@ -57,7 +57,7 @@ Creates and adds the symbol if doesn't exist." Return t on success, nil otherwise." (unintern name obarray)) -(defun obarray-foreach (fn obarray) +(defun obarray-map (fn obarray) "Call function FN on every symbol in OBARRAY and return nil." (mapatoms fn obarray)) diff --git a/test/automated/obarray-tests.el b/test/automated/obarray-tests.el index 16ed694bb3f..97df3b3b6a6 100644 --- a/test/automated/obarray-tests.el +++ b/test/automated/obarray-tests.el @@ -73,17 +73,17 @@ (should (obarray-remove table "aoeu")) (should-not (obarray-get table "aoeu")))) -(ert-deftest obarray-foreach-test () +(ert-deftest obarray-map-test () "Should execute function on all elements of obarray." (let* ((table (obarray-make 3)) (syms '()) (collect-names (lambda (sym) (push (symbol-name sym) syms)))) - (obarray-foreach collect-names table) + (obarray-map collect-names table) (should (null syms)) (obarray-put table "a") (obarray-put table "b") (obarray-put table "c") - (obarray-foreach collect-names table) + (obarray-map collect-names table) (should (equal (sort syms #'string<) '("a" "b" "c"))))) (provide 'obarray-tests) -- 2.39.2