branch: elpa/elfeed
commit 7a97037bcea10fa54f78fcfe6b277b3f48b2c7d6
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Use length=
---
elfeed-curl.el | 2 +-
elfeed-search.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/elfeed-curl.el b/elfeed-curl.el
index 44e0b06c13..83557515ce 100644
--- a/elfeed-curl.el
+++ b/elfeed-curl.el
@@ -513,7 +513,7 @@ curl invocation."
elfeed-curl-queue
(elfeed-curl--queue-consolidate elfeed-curl-queue)))
(while (and (< elfeed-curl-queue-active elfeed-curl-max-connections)
- (> (length elfeed-curl-queue) 0))
+ elfeed-curl-queue)
(cl-destructuring-bind (url cb headers method data) (pop elfeed-curl-queue)
(elfeed-log 'debug "retrieve %s" url)
(incf elfeed-curl-queue-active 1)
diff --git a/elfeed-search.el b/elfeed-search.el
index 714ff8ef27..72f1a9c117 100644
--- a/elfeed-search.el
+++ b/elfeed-search.el
@@ -1142,7 +1142,7 @@ Sets the :title key of the feed's metadata. See
`elfeed-meta'."
(elfeed-search-filter (concat limiter current-filter)))
(elfeed-search-update :force)
(setf elfeed-search-filter-overflowing
- (= (length elfeed-search-entries) height)))))))
+ (length= elfeed-search-entries height)))))))
(defun elfeed-search-live-filter ()
"Filter the elfeed-search buffer as the filter is written."
