]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity.
authorNicolas Petton <nicolas@petton.fr>
Thu, 21 Mar 2019 20:07:55 +0000 (21:07 +0100)
committerNicolas Petton <nicolas@petton.fr>
Thu, 21 Mar 2019 20:08:29 +0000 (21:08 +0100)
lisp/emacs-lisp/seq.el

index 0b99b663ddc0548baf45d67fe93ebc372f20e14b..3413cd1513c3487121729e02db1e2e7dc67a38f3 100644 (file)
@@ -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)
               '()))