Do not map nodes on conses (be consistent with tree map)

12 years ago · 9e1a667afc
parent 0310e0e52e
commit 9e1a667afc
1 changed files with 2 additions and 1 deletions
--- 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)))