mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Rename seq-p and map-p to seqp and mapp

Browse source 
* lisp/emacs-lisp/seq.el (seqp): New name.
* lisp/emacs-lisp/map.el (mapp): New name.
* doc/lispref/sequences.texi: Update the documentation for seqp.
* test/automated/map-tests.el: Update the tests for mapp.
This commit is contained in:
Nicolas Petton 2015-11-11 18:18:32 +01:00
parent 23036bac7d
commit 51d840a8a1
4 changed files with 21 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -58,7 +58,7 @@ unquoted form.
ARGS can also be a list of symbols, which stands for ('SYMBOL
SYMBOL)."
`(and (pred map-p)
`(and (pred mapp)
,@(map--make-pcase-bindings args)))
(defmacro map-let (keys map &rest body)
@ -155,7 +155,7 @@ MAP can be a list, hash-table or array."
Map can be a nested map composed of alists, hash-tables and arrays."
(or (seq-reduce (lambda (acc key)
(when (map-p acc)
(when (mapp acc)
(map-elt acc key)))
keys
map)
@ -239,7 +239,7 @@ MAP can be a list, hash-table or array."
(map-filter (lambda (key val) (not (funcall pred key val)))
map))
(defun map-p (map)
(defun mapp (map)
"Return non-nil if MAP is a map (list, hash-table or array)."
(or (listp map)
(hash-table-p map)