From: Gemini Lasswell <gazally@runbox.com>
Date: Mon, 13 Aug 2018 22:45:11 +0000 (-0700)
Subject: Make list-threads refresh the *Threads* buffer if it already exists
X-Git-Tag: emacs-27.0.90~4449^2~7
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bdba72b67199c0899b2e416bf818d240252f8700;p=emacs.git

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.
---

diff --git a/lisp/thread.el b/lisp/thread.el
index c4a4c113570..4cd253e2cf5 100644
--- a/lisp/thread.el
+++ b/lisp/thread.el
@@ -84,7 +84,9 @@ An EVENT has the format
     (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!