diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-08-13 15:45:11 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-09-09 07:41:49 -0700 |
| commit | bdba72b67199c0899b2e416bf818d240252f8700 (patch) | |
| tree | 3138daf4b40537e6bae504f60a02b6dac8b6054e /lisp/thread.el | |
| parent | ea1ec0ed2e6ebbd4650aa5a7d662f2568f1d858f (diff) | |
| download | emacs-bdba72b67199c0899b2e416bf818d240252f8700.tar.gz | |
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.
Diffstat (limited to 'lisp/thread.el')
| -rw-r--r-- | lisp/thread.el | 4 |
1 files changed, 3 insertions, 1 deletions
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! |