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

; * lisp/emacs-lisp/map.el: Fix formatting.

Browse source
This commit is contained in:
Nicolas Petton 2015-06-06 01:09:40 +02:00
parent 8fe836abbd
commit 431fca48a8
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -91,7 +91,7 @@ form.
((arrayp ,map-var) ,(plist-get args :array))
(t (error "Unsupported map: %s" ,map-var))))
,@(when (cddr spec)
`((setq ,result-var ,@(cddr spec))))
`((setq ,result-var ,@(cddr spec))))
,result-var)))
(defun map-elt (map key &optional default)
@ -309,12 +309,12 @@ MAP can be a list, hash-table or array."
(defun map--apply-array (function map)
"Private function used to apply FUNCTION over MAP, MAP being an array."
(let ((index 0))
(seq-map (lambda (elt)
(prog1
(funcall function index elt)
(setq index (1+ index))))
map)))
(let ((index 0))
(seq-map (lambda (elt)
(prog1
(funcall function index elt)
(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.