mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-18 18:05:07 +00:00
Code Issues Releases Activity

Reuse `alist-get' in map.el

Browse Source 
* lisp/emacs-lisp/map.el (map-elt): Use `alist-get' to retrieve alist
elements.
This commit is contained in:
Nicolas Petton 2015-06-21 20:25:28 +02:00
parent 3be98ca53b
commit a94202b78a
1 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/map.el
View File

@ -106,11 +106,11 @@ form.
"Perform a lookup in MAP of KEY and return its associated value.
If KEY is not found, return DEFAULT which defaults to nil.
If MAP is a list, `equal' is used to lookup KEY.
If MAP is a list, `eql' is used to lookup KEY.
MAP can be a list, hash-table or array."
(map--dispatch map
:list (map--elt-list map key default)
:list (alist-get key map default)
:hash-table (gethash key map default)
:array (map--elt-array map key default)))
@ -324,14 +324,6 @@ MAP can be a list, hash-table or array."
(setq index (1+ index))))
map)))
(defun map--elt-list (map key &optional default)
"Lookup, in the list MAP, the value associated with KEY and return it.
If KEY is not found, return DEFAULT which defaults to nil."
(let ((pair (assoc key map)))
(if pair
(cdr pair)
default)))
(defun map--elt-array (map key &optional default)
"Return the element of the array MAP at the index KEY.
If KEY is not found, return DEFAULT which defaults to nil."