From: Nicolas Petton <nicolas@petton.fr>
Date: Fri, 5 Jun 2015 23:09:40 +0000 (+0200)
Subject: ; * lisp/emacs-lisp/map.el: Fix formatting.
X-Git-Tag: emacs-25.0.90~1851
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=431fca48a82514d140bf2e4ee93c344661723eac;p=emacs.git

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

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.