branch: externals/dash
commit 64ff288f494e45ef52e6067f2b1d1a2b591dd185
Author: Bennett Rennier <benn...@brennier.com>
Commit: Basil L. Contovounesios <conto...@tcd.ie>
Fix bug with -is-suffix?
* dash.el (-is-suffix?): Don't assume that first element of suffix
appears only once (PR #384). This fixes a regression in v2.18.0.
Copyright-paperwork-exempt: yes
---
dash.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/dash.el b/dash.el
index 4e56da4..4a591f3 100644
--- a/dash.el
+++ b/dash.el
@@ -2729,9 +2729,7 @@ Alias: `-is-prefix-p'."
Alias: `-is-suffix-p'."
(declare (pure t) (side-effect-free t))
- (cond ((null suffix))
- ((setq list (member (car suffix) list))
- (equal (cdr suffix) (cdr list)))))
+ (equal suffix (last list (length suffix))))
(defun -is-infix? (infix list)
"Return non-nil if INFIX is infix of LIST.
