branch: externals/dash
commit 2758ee751860ffae615335cc7a075430960caaaa
Author: citreu <all_but_l...@163.com>
Commit: citreu <all_but_l...@163.com>
Alias `-cons-pair-p` to `-cons-pair?`
---
dash.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/dash.el b/dash.el
index 550e1b6..5822361 100644
--- a/dash.el
+++ b/dash.el
@@ -2540,11 +2540,15 @@ the new seed."
(defun -cons-pair? (con)
"Return non-nil if CON is true cons pair.
-That is (A . B) where B is not a list."
+That is (A . B) where B is not a list.
+
+Alias: `-cons-pair-p'"
(declare (pure t) (side-effect-free t))
(and (listp con)
(not (listp (cdr con)))))
+(defalias '-cons-pair-p '-cons-pair?)
+
(defun -cons-to-list (con)
"Convert a cons pair to a list with `car' and `cdr' of the pair
respectively."
(declare (pure t) (side-effect-free t))
@@ -2949,6 +2953,7 @@ structure such as plist or alist."
"-unfold"
"--unfold"
"-cons-pair?"
+ "-cons-pair-p"
"-cons-to-list"
"-value-to-list"
"-tree-mapreduce-from"
