[-let] Reuse the ignore-place predicate

11 years ago · 36b7f49f16
parent 40896b87d3
commit 36b7f49f16
1 changed files with 1 additions and 2 deletions
--- a/dash.el
+++ b/dash.el
@ -1257,8 +1257,7 @@ sorts it in descending order."
        (n 0)
        (m match-form))
    (while (and (consp m)
-                (symbolp (car m))
-                (eq (aref (symbol-name (car m)) 0) ?_))
+                (dash--match-ignore-place-p (car m)))
      (setq n (1+ n)) (!cdr m))
    (cond
     ;; handle improper lists