[Emacs-diffs] master 431fca4 2/3: ; * lisp/emacs-lisp/map.el: Fix formatting.

[Nicolas Petton]

branch: master
commit 431fca48a82514d140bf2e4ee93c344661723eac
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    ; * lisp/emacs-lisp/map.el: Fix formatting.
---
 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 897743e..b59ad63 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.