From bdba72b67199c0899b2e416bf818d240252f8700 Mon Sep 17 00:00:00 2001 From: Gemini Lasswell Date: Mon, 13 Aug 2018 15:45:11 -0700 Subject: [PATCH] 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 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! -- 2.39.5