Subject: [PATCH] Cancel proced auto update timer if no proced buffers are open

From: Laurence Warne <[email-masked]>
Date: Wed, 16 Nov 2022 11:57:09 +0000

Hi, this patch cancels the proced auto update timer if it's detected that
no proced buffers are open.

Thanks, Laurence
From d732d47a917b66eed6a5aaaa77ac7c2f28b0860d Mon Sep 17 00:00:00 2001
From: Laurence Warne <[email-masked]>
Date: Tue, 15 Nov 2022 18:48:40 +0000
Subject: [PATCH] Cancel proced auto update timer if no proced buffers are open

* lisp/proced.el (proced-auto-update-timer): cancel timer if no proced
buffers are open
---
 lisp/proced.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/lisp/proced.el b/lisp/proced.el
index a774f2dd1e..d0e55c9402 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -740,12 +740,17 @@ proced
         "Type \\<proced-mode-map>\\[quit-window] to quit, \\[proced-help] for help")))))
 
 (defun proced-auto-update-timer ()
-  "Auto-update Proced buffers using `run-at-time'."
-  (dolist (buf (buffer-list))
-    (with-current-buffer buf
-      (if (and (eq major-mode 'proced-mode)
-               proced-auto-update-flag)
-          (proced-update t t)))))
+  "Auto-update Proced buffers using `run-at-time'.
+
+If there are no active proced buffers, cancel the timer."
+  (unless (seq-filter (lambda (buf)
+                        (with-current-buffer buf
+                          (when (and (eq major-mode 'proced-mode)
+                                     proced-auto-update-flag)
+                            (proced-update t t))))
+                      (buffer-list))
+    (cancel-timer proced-auto-update-timer)
+    (setq proced-auto-update-timer nil)))
 
 (defun proced-toggle-auto-update (arg)
   "Change whether this Proced buffer is updated automatically.
-- 
2.30.2