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

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

[elpa] externals/dash 5d2a73c 07/14: [Fix #155] -is-suffix? no longer de


From: Phillip Lord
Subject: [elpa] externals/dash 5d2a73c 07/14: [Fix #155] -is-suffix? no longer destroys input list.
Date: Sun, 04 Oct 2015 12:01:01 +0000

branch: externals/dash
commit 5d2a73c0b364792e0f56c6db0a8595115fafe3d5
Author: Matus Goljer <address@hidden>
Commit: Matus Goljer <address@hidden>

    [Fix #155] -is-suffix? no longer destroys input list.
---
 dash.el         |    2 +-
 dev/examples.el |    5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/dash.el b/dash.el
index 9a82064..26ef17f 100644
--- a/dash.el
+++ b/dash.el
@@ -1854,7 +1854,7 @@ Alias: `-is-prefix-p'"
   "Return non-nil if SUFFIX is suffix of LIST.
 
 Alias: `-is-suffix-p'"
-  (-is-prefix? (nreverse suffix) (nreverse list)))
+  (-is-prefix? (reverse suffix) (reverse list)))
 
 (defun -is-infix? (infix list)
   "Return non-nil if INFIX is infix of LIST.
diff --git a/dev/examples.el b/dev/examples.el
index 8491ccb..5bd0bdc 100644
--- a/dev/examples.el
+++ b/dev/examples.el
@@ -381,7 +381,10 @@ new list."
     (-is-suffix? '(3 4 5) '(1 2 3 4 5)) => t
     (-is-suffix? '(1 2 3 4 5) '(3 4 5)) => nil
     (-is-suffix? '(3 5) '(1 2 3 4 5)) => nil
-    (-is-suffix? '(3 4 5) '(1 2 3 5)) => nil)
+    (-is-suffix? '(3 4 5) '(1 2 3 5)) => nil
+    (let ((l '(1 2 3)))
+      (list (-is-suffix? '(3) l)
+            l)) => '(t (1 2 3)))
 
   (defexamples -is-infix?
     (-is-infix? '(1 2 3) '(1 2 3 4 5)) => t



reply via email to

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