emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dash 64ff288 1/4: Fix bug with -is-suffix?


From: ELPA Syncer
Subject: [elpa] externals/dash 64ff288 1/4: Fix bug with -is-suffix?
Date: Thu, 26 Aug 2021 07:57:12 -0400 (EDT)

branch: externals/dash
commit 64ff288f494e45ef52e6067f2b1d1a2b591dd185
Author: Bennett Rennier <bennett@brennier.com>
Commit: Basil L. Contovounesios <contovob@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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]