diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-11-16 22:28:33 +0100 |
|---|---|---|
| committer | David Bremner <david@tethera.net> | 2020-12-06 16:20:57 -0400 |
| commit | ac8a117a84c8af8a27325b706e0b68a6ada8e478 (patch) | |
| tree | a0725d1a041da9d2b8016bfc7bb23123c03445cf /emacs/notmuch-lib.el | |
| parent | 1fbae387e3b2c1fabf87d9296269421a47976785 (diff) | |
emacs: remove unnecessary notmuch-remove-if-not
We could just have switched to using `cl-remove-if-not' instead,
but the two uses of the *remove-if-not function are pretty strange
to begin with so we refactor to not use any such function at all.
Diffstat (limited to 'emacs/notmuch-lib.el')
| -rw-r--r-- | emacs/notmuch-lib.el | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 8ee3f17f..d7c6b737 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -534,15 +534,6 @@ This replaces spaces, percents, and double quotes in STR with ;; -(defun notmuch-remove-if-not (predicate list) - "Return a copy of LIST with all items not satisfying PREDICATE removed." - (let (out) - (while list - (when (funcall predicate (car list)) - (push (car list) out)) - (setq list (cdr list))) - (nreverse out))) - (defun notmuch-plist-delete (plist property) (let* ((xplist (cons nil plist)) (pred xplist)) |