[Emacs-diffs] scratch/list-threads 0b7fb4c 4/9: Make list-threads refresh the *Threads* buffer if it already exists

[Gemini Lasswell]

branch: scratch/list-threads
commit 0b7fb4c4b46466ba83b6bdf5092c80dfeb1d3a2c
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>

    Make list-threads refresh the *Threads* buffer if it already exists
    
    * lisp/thread.el (list-threads): Call revert-buffer instead of waiting
    for the timer function to do it.
---
 lisp/thread.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/thread.el b/lisp/thread.el
index c79057d..c99fc59 100644
--- a/lisp/thread.el
+++ b/lisp/thread.el
@@ -67,7 +67,9 @@
     (with-current-buffer buf
       (unless (derived-mode-p 'thread-list-mode)
         (thread-list-mode)
-        (run-at-time 0 nil #'thread-list--timer-func buf)))
+        (run-at-time thread-list-refresh-seconds nil
+                     #'thread-list--timer-func buf))
+      (revert-buffer))
     (switch-to-buffer buf)))
 ;; This command can be destructive if they don't know what they are
 ;; doing.  Kids, don't try this at home!