projects
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
287cc58
)
* lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity.
author
Nicolas Petton
<nicolas@petton.fr>
Thu, 21 Mar 2019 20:07:55 +0000
(21:07 +0100)
committer
Nicolas Petton
<nicolas@petton.fr>
Thu, 21 Mar 2019 20:08:29 +0000
(21:08 +0100)
lisp/emacs-lisp/seq.el
patch
|
blob
|
history
diff --git
a/lisp/emacs-lisp/seq.el
b/lisp/emacs-lisp/seq.el
index 0b99b663ddc0548baf45d67fe93ebc372f20e14b..3413cd1513c3487121729e02db1e2e7dc67a38f3 100644
(file)
--- 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)
'()))