branch: externals/dash
commit 9e1a667afc1eacecf79f9bd67c0282559405e801
Author: Matus Goljer <[email protected]>
Commit: Matus Goljer <[email protected]>
Do not map nodes on conses (be consistent with tree map)
---
dash.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/dash.el b/dash.el
index 0c04622..44eec0d 100644
--- a/dash.el
+++ b/dash.el
@@ -1906,7 +1906,8 @@ returns non-nil, apply FUN to this node and do not descend
further."
(if (funcall pred tree)
(funcall fun tree)
- (if (listp tree)
+ (if (and (listp tree)
+ (not (-cons-pair? tree)))
(-map (lambda (x) (-tree-map-nodes pred fun x)) tree)
tree)))
