[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)
'()))