[elpa] externals/dash 6abc35a 277/426: Merge pull request #66 from rejeep/each-indent-level

[Phillip Lord]

branch: externals/dash
commit 6abc35ad7690405323d05fae214591236a91a460
Merge: 5d25ed2 960b05f
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Merge pull request #66 from rejeep/each-indent-level
    
    Set -each function indent level to 1.
---
 dash.el |    6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/dash.el b/dash.el
index 3c83412..12c04bc 100644
--- a/dash.el
+++ b/dash.el
@@ -70,6 +70,8 @@ special values."
   "Calls FN with every item in LIST. Returns nil, used for side-effects only."
   (--each list (funcall fn it)))
 
+(put '-each 'lisp-indent-function 1)
+
 (defmacro --each-while (list pred &rest body)
   "Anaphoric form of `-each-while'."
   (let ((l (make-symbol "list"))
@@ -88,6 +90,8 @@ special values."
 Returns nil, used for side-effects only."
   (--each-while list (funcall pred it) (funcall fn it)))
 
+(put '-each-while 'lisp-indent-function 2)
+
 (defmacro --dotimes (num &rest body)
   "Repeatedly executes BODY (presumably for side-effects) with `it` bound to 
integers from 0 through n-1."
   `(let ((it 0))
@@ -101,6 +105,8 @@ Returns nil, used for side-effects only."
   "Repeatedly calls FN (presumably for side-effects) passing in integers from 
0 through n-1."
   (--dotimes num (funcall fn it)))
 
+(put '-dotimes 'lisp-indent-function 1)
+
 (defun -map (fn list)
   "Returns a new list consisting of the result of applying FN to the items in 
LIST."
   (mapcar fn list))