diff options
| author | Nicolas Petton | 2019-03-21 21:07:55 +0100 |
|---|---|---|
| committer | Nicolas Petton | 2019-03-21 21:08:29 +0100 |
| commit | 40714862a388c12f5b2b6d4a9da8be9ef2be2111 (patch) | |
| tree | 5129d3c5716d33e50f74856e0fc1ec4f506051a8 | |
| parent | 287cc58f39e9ca8f9ef31b31556f50c25feadaea (diff) | |
| download | emacs-40714862a388c12f5b2b6d4a9da8be9ef2be2111.tar.gz emacs-40714862a388c12f5b2b6d4a9da8be9ef2be2111.zip | |
* lisp/emacs-lisp/seq.el (seq-difference): Inverse a conditional for clarity.
| -rw-r--r-- | lisp/emacs-lisp/seq.el | 6 |
1 files changed, 3 insertions, 3 deletions
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." | |||
| 430 | "Return a list of the elements that appear in SEQUENCE1 but not in SEQUENCE2. | 430 | "Return a list of the elements that appear in SEQUENCE1 but not in SEQUENCE2. |
| 431 | Equality is defined by TESTFN if non-nil or by `equal' if nil." | 431 | Equality is defined by TESTFN if non-nil or by `equal' if nil." |
| 432 | (seq-reduce (lambda (acc elt) | 432 | (seq-reduce (lambda (acc elt) |
| 433 | (if (not (seq-contains-p sequence2 elt testfn)) | 433 | (if (seq-contains-p sequence2 elt testfn) |
| 434 | (cons elt acc) | 434 | acc |
| 435 | acc)) | 435 | (cons elt acc))) |
| 436 | (seq-reverse sequence1) | 436 | (seq-reverse sequence1) |
| 437 | '())) | 437 | '())) |
| 438 | 438 | ||