diff options
| author | Nicolas Petton <nicolas@petton.fr> | 2015-06-06 01:09:40 +0200 |
|---|---|---|
| committer | Nicolas Petton <nicolas@petton.fr> | 2015-06-06 01:26:25 +0200 |
| commit | 431fca48a82514d140bf2e4ee93c344661723eac (patch) | |
| tree | ed79df5b6e188af22e663b981d1caab3bb49710a /lisp/emacs-lisp/map.el | |
| parent | 8fe836abbd64a8445880184083e1a92f87ef938a (diff) | |
| download | emacs-431fca48a82514d140bf2e4ee93c344661723eac.tar.gz emacs-431fca48a82514d140bf2e4ee93c344661723eac.tar.bz2 emacs-431fca48a82514d140bf2e4ee93c344661723eac.zip | |
; * lisp/emacs-lisp/map.el: Fix formatting.
Diffstat (limited to 'lisp/emacs-lisp/map.el')
| -rw-r--r-- | lisp/emacs-lisp/map.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/map.el b/lisp/emacs-lisp/map.el index 897743e5b10..b59ad63aee1 100644 --- a/lisp/emacs-lisp/map.el +++ b/lisp/emacs-lisp/map.el @@ -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. |