[elpa] externals/dash 0bd26ac 096/426: Add aliases for -p instead of ?

[Phillip Lord]

branch: externals/dash
commit 0bd26ac92de4df638aee4344bde2f3d2d0cbc65e
Author: Magnar Sveen <address@hidden>
Commit: Magnar Sveen <address@hidden>

    Add aliases for -p instead of ?
---
 dash.el |   15 +++++++++++++++
 1 files changed, 15 insertions(+), 0 deletions(-)

diff --git a/dash.el b/dash.el
index eb27790..e6ad781 100644
--- a/dash.el
+++ b/dash.el
@@ -183,6 +183,11 @@ Alias: `-some?'"
 (defalias '-some? '-any?)
 (defalias '--some? '--any?)
 
+(defalias '-any-p '-any?)
+(defalias '--any-p '--any?)
+(defalias '-some-p '-any?)
+(defalias '--some-p '--any?)
+
 (defmacro --all? (form list)
   "Anaphoric form of `-all?'."
   (let ((l (make-symbol "list"))
@@ -204,6 +209,11 @@ Alias: `-every?'"
 (defalias '-every? '-all?)
 (defalias '--every? '--all?)
 
+(defalias '-all-p '-all?)
+(defalias '--all-p '--all?)
+(defalias '-every-p '-all?)
+(defalias '--every-p '--all?)
+
 (defmacro --none? (form list)
   "Anaphoric form `-none?'."
   `(--all? (not ,form) ,list))
@@ -212,6 +222,9 @@ Alias: `-every?'"
   "Returns t if (FN x) is nil for all x in LIST, else nil."
   (--none? (funcall fn it) list))
 
+(defalias '-none-p '-none?)
+(defalias '--none-p '--none?)
+
 (defmacro --each (list form)
   "Anaphoric form of `-each'."
   (let ((l (make-symbol "list")))
@@ -416,5 +429,7 @@ or with `-compare-fn' if that's non-nil."
           (setq lst (cdr lst)))
         lst))))))
 
+(defalias '-contains-p '-contains?)
+
 (provide 'dash)
 ;;; dash.el ends here