[elpa] externals/dash c1991d4 099/316: Merge pull request #262 from basil-conto/blc/common-prefix

[ELPA Syncer]

branch: externals/dash
commit c1991d4c22f356be21df6b3badd7233a94df7937
Merge: 138c22a beea1a3
Author: Matus Goljer <dota.keys@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #262 from basil-conto/blc/common-prefix
    
    Safer -common-prefix via breadth-first traversal
---
 dash.el | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/dash.el b/dash.el
index e8ff669..bb16d9e 100644
--- a/dash.el
+++ b/dash.el
@@ -2118,10 +2118,7 @@ or with `-compare-fn' if that's non-nil."
 (defun -common-prefix (&rest lists)
   "Return the longest common prefix of LISTS."
   (declare (pure t) (side-effect-free t))
-  (--reduce (let (head prefix)
-              (while (and acc it (equal (setq head (pop acc)) (pop it)))
-                (push head prefix))
-              (nreverse prefix))
+  (--reduce (--take-while (and acc (equal (pop acc) it)) it)
             lists))
 
 (defun -contains? (list element)