[elpa] externals/dash 5637bd6 322/426: Add alias from -find to -first

[Phillip Lord]

branch: externals/dash
commit 5637bd6f1b9cb757897deed26ec2a7400b63610e
Author: Matus Goljer <address@hidden>
Commit: Matus Goljer <address@hidden>

    Add alias from -find to -first
---
 README.md |    2 ++
 dash.el   |    9 ++++++++-
 2 files changed, 10 insertions(+), 1 deletions(-)

diff --git a/README.md b/README.md
index b6fcc96..534edaa 100644
--- a/README.md
+++ b/README.md
@@ -1233,6 +1233,8 @@ Returns the first x in `list` where (`pred` x) is 
non-nil, else nil.
 
 To get the first item in the list no questions asked, use `car`.
 
+This function is also available as `-find`.
+
 ```cl
 (-first 'even? '(1 2 3)) ;; => 2
 (-first 'even? '(1 3 5)) ;; => nil
diff --git a/dash.el b/dash.el
index 0f1eebc..d987ef8 100644
--- a/dash.el
+++ b/dash.el
@@ -329,9 +329,14 @@ If ELEMENTS is non nil, append these to the list as well."
 (defun -first (pred list)
   "Returns the first x in LIST where (PRED x) is non-nil, else nil.
 
-To get the first item in the list no questions asked, use `car'."
+To get the first item in the list no questions asked, use `car'.
+
+This function is also available as `-find'."
   (--first (funcall pred it) list))
 
+(defalias '-find '-first)
+(defalias '--find '--first)
+
 (defmacro --last (form list)
   "Anaphoric form of `-last'."
   (declare (debug (form form)))
@@ -1480,6 +1485,8 @@ structure such as plist or alist."
                              "-snoc"
                              "-first"
                              "--first"
+                             "-find"
+                             "--find"
                              "-last"
                              "--last"
                              "-first-item"