From 0f2ca954e03b857554071ae48a98d44ba7030d69 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Sun, 26 Apr 2020 10:44:00 +0200 Subject: [PATCH 3/4] Move point to new buffer for display-time-world * lisp/time.el (display-time-world): Move point to created buffer. --- lisp/time.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/time.el b/lisp/time.el index 44885f74d1..84c0071b7d 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -566,11 +566,11 @@ display-time-world (when (and display-time-world-timer-enable (not (get-buffer display-time-world-buffer-name))) (run-at-time t display-time-world-timer-second 'display-time-world-timer)) - (with-current-buffer (get-buffer-create display-time-world-buffer-name) - (display-time-world-display (time--display-world-list)) - (display-buffer display-time-world-buffer-name - (cons nil '((window-height . fit-window-to-buffer)))) - (display-time-world-mode))) + (switch-to-buffer-other-window (get-buffer-create display-time-world-buffer-name)) + (display-time-world-display (time--display-world-list)) + (display-buffer display-time-world-buffer-name + (cons nil '((window-height . fit-window-to-buffer)))) + (display-time-world-mode)) (defun display-time-world-timer () (if (get-buffer display-time-world-buffer-name) -- 2.26.2