Commit 40714862 authored by NicolasPetton's avatar NicolasPetton

* lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity.

parent 287cc58f
Pipeline #1045 passed with stage
in 57 minutes and 25 seconds
......@@ -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)
'()))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment