procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the semantic of map-some

Browse source 
Update map-some to return the returned by the predicate, similar to
seq-some.

* lisp/emacs-lisp/map.el (map-some): Update the function to return the
  return value of the predicate.
* test/automated/map-tests.el (test-map-some): Update the test to check
  for non-nil values only.
This commit is contained in:
Nicolas Petton 2015-09-06 00:51:35 +02:00
parent a1535f9381
commit 1b5fda5cbc
2 changed files with 15 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/map.el
View file

@ -262,8 +262,9 @@ MAP can be a list, hash-table or array."
MAP can be a list, hash-table or array."
(catch 'map--break
(map-apply (lambda (key value)
(when (funcall pred key value)
(throw 'map--break (cons key value))))
(let ((result (funcall pred key value)))
(when result
(throw 'map--break result))))
map)
nil))

26
test/automated/map-tests.el
View file

@ -262,21 +262,19 @@ Evaluate BODY for each created map.
(ert-deftest test-map-some ()
(with-maps-do map
(should (equal (map-some (lambda (k _v)
(eq 1 k))
map)
(cons 1 4)))
(should (not (map-some (lambda (k _v)
(eq 'd k))
map))))
(should (map-some (lambda (k _v)
(eq 1 k))
map))
(should-not (map-some (lambda (k _v)
(eq 'd k))
map)))
(let ((vec [a b c]))
(should (equal (map-some (lambda (k _v)
(> k 1))
vec)
(cons 2 'c)))
(should (not (map-some (lambda (k _v)
(> k 3))
vec)))))
(should (map-some (lambda (k _v)
(> k 1))
vec))
(should-not (map-some (lambda (k _v)
(> k 3))
vec))))
(ert-deftest test-map-every-p ()
(with-maps-do map