diff options
author | Case Duckworth | 2022-05-10 08:33:24 -0500 |
---|---|---|
committer | Case Duckworth | 2022-05-10 08:33:24 -0500 |
commit | a0b156b7e157265b4dcd2a60be2129681e40f2a6 (patch) | |
tree | d6f1cf67ba17092907322a91ff543802e93a8273 /lisp/+elfeed.el | |
parent | meh (diff) | |
parent | Merged (diff) | |
download | emacs-a0b156b7e157265b4dcd2a60be2129681e40f2a6.tar.gz emacs-a0b156b7e157265b4dcd2a60be2129681e40f2a6.zip |
Merge branch 'main' of tildegit.org:acdw/emacs
Diffstat (limited to 'lisp/+elfeed.el')
-rw-r--r-- | lisp/+elfeed.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/+elfeed.el b/lisp/+elfeed.el index c0b74f0..9257c8d 100644 --- a/lisp/+elfeed.el +++ b/lisp/+elfeed.el | |||
@@ -105,10 +105,14 @@ If multiple items are selected, don't advance." | |||
105 | (elfeed-db-load) | 105 | (elfeed-db-load) |
106 | (elfeed-update) | 106 | (elfeed-update) |
107 | ;; Wait for `elfeed-update' to finish | 107 | ;; Wait for `elfeed-update' to finish |
108 | (while (> (elfeed-queue-count-total) 0) | 108 | (let ((q<5-count 0)) |
109 | (sleep-for 5) | 109 | (while (and (> (elfeed-queue-count-total) 0) |
110 | (message "%s" (elfeed-queue-count-total)) | 110 | (< q<5-count 5)) |
111 | (accept-process-output)) | 111 | (sleep-for 5) |
112 | (message "Elfeed queue count total: %s" (elfeed-queue-count-total)) | ||
113 | (when (< (elfeed-queue-count-total) 5) | ||
114 | (cl-incf q<5-count)) | ||
115 | (accept-process-output))) | ||
112 | ;; Garbage collect and save the database | 116 | ;; Garbage collect and save the database |
113 | (elfeed-db-gc) | 117 | (elfeed-db-gc) |
114 | (elfeed-db-save) | 118 | (elfeed-db-save) |