diff options
| author | Laurence Warne <laurencewarne@gmail.com> | 2022-11-15 18:48:40 +0000 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2022-11-20 13:44:10 +0200 |
| commit | 07705f5ddc35e8788dbe953e3491a132c4a3f2e7 (patch) | |
| tree | bf89d5cdbce4ef9218f306af32815386b96f9c91 | |
| parent | 7b09ed28ba395030e5117344bb5b97b8ee4a8b40 (diff) | |
| download | emacs-07705f5ddc35e8788dbe953e3491a132c4a3f2e7.tar.gz | |
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.
| -rw-r--r-- | lisp/proced.el | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index a6f1a717785..67c1cf48c11 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -740,12 +740,18 @@ Proced buffers." "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 proced buffers, cancel the timer." + (unless (seq-filter (lambda (buf) + (with-current-buffer buf + (when (eq major-mode 'proced-mode) + (when proced-auto-update-flag + (proced-update t 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. |