emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] master 4071486 2/2: * lisp/emacs-lisp/seq.el (seq-differen


From: Nicolas Petton
Subject: [Emacs-diffs] master 4071486 2/2: * lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity.
Date: Thu, 21 Mar 2019 16:08:39 -0400 (EDT)

branch: master
commit 40714862a388c12f5b2b6d4a9da8be9ef2be2111
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

    * lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for 
clarity.
---
 lisp/emacs-lisp/seq.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el
index 0b99b66..3413cd1 100644
--- a/lisp/emacs-lisp/seq.el
+++ b/lisp/emacs-lisp/seq.el
@@ -430,9 +430,9 @@ Equality is defined by TESTFN if non-nil or by `equal' if 
nil."
   "Return a list of the elements that appear in SEQUENCE1 but not in SEQUENCE2.
 Equality is defined by TESTFN if non-nil or by `equal' if nil."
   (seq-reduce (lambda (acc elt)
-                (if (not (seq-contains-p sequence2 elt testfn))
-                    (cons elt acc)
-                  acc))
+                (if (seq-contains-p sequence2 elt testfn)
+                    acc
+                  (cons elt acc)))
               (seq-reverse sequence1)
               '()))
 



reply via email to

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