From d732d47a917b66eed6a5aaaa77ac7c2f28b0860d Mon Sep 17 00:00:00 2001 From: Laurence Warne 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 \\\\[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