From: Nicolas Petton Date: Thu, 21 Mar 2019 20:07:55 +0000 (+0100) Subject: * lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity. X-Git-Tag: emacs-27.0.90~3372 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=40714862a388c12f5b2b6d4a9da8be9ef2be2111;p=emacs.git * lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity. --- diff --git a/lisp/emacs-lisp/seq.el b/lisp/emacs-lisp/seq.el index 0b99b663ddc..3413cd1513c 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) '()))