1 files changed, 9 insertions, 5 deletions

@@ -46,20 +46,24 @@ If multiple items are selected, don't advance."
   (message "[Elfeed] Update in progress")
   'ignore)
 
-(defvar +elfeed--update-running nil "Whether an update is currently running.")
+(defvar +elfeed--update-running-p nil "Whether an update is currently running.")
 (defvar +elfeed--update-count 0 "How many times `+elfeed-update-command' has run.")
 (defcustom +elfeed-update-niceness 15
   "How \"nice\" `+elfeed-update-command' should be."
   :type 'integer
   :group 'elfeed)
 
+(defcustom +elfeed-update-lockfile
+  (expand-file-name "+elfeed-update-lock" (temporary-file-directory))
+  "The file to ")
+
 (defun +elfeed-update-command ()
   (interactive)
-  (unless (or +elfeed--update-running
+  (unless (or +elfeed--update-running-p
               (derived-mode-p 'elfeed-show-mode 'elfeed-search-mode))
     (let ((script (expand-file-name "/tmp/elfeed-update.el"))
           (update-message-format "[Elfeed] Background update: %s"))
-      (setq +elfeed--update-running t)
+      (setq +elfeed--update-running-p t)
       (elfeed-db-save)
       (advice-add 'elfeed :override #'+elfeed--update-message)
       (ignore-errors (kill-buffer "*elfeed-search*"))
@@ -128,7 +132,7 @@ If multiple items are selected, don't advance."
                                      script))
                             (lambda (proc stat)
                               (advice-remove 'elfeed #'+elfeed--update-message)
-                              (setq +elfeed--update-running nil)
+                              (setq +elfeed--update-running-p nil)
                               (unless (string= stat "killed")
                                 (setq +elfeed--update-count (1+ +elfeed--update-count)))
                               (message update-message-format (string-trim stat)))))))
@@ -152,7 +156,7 @@ non-nil, proceed."
 
 (defun +elfeed--cancel-update-timer ()
   "Cancel `+elfeed--update-timer'."
-  (unless +elfeed--update-running
+  (unless +elfeed--update-running-p
     (ignore-errors (cancel-timer +elfeed--update-timer))
     (setq +elfeed--update-timer nil)))