From 970074470d7bc332fc36fd30feee93e1d6130177 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Thu, 19 May 2016 19:01:08 -0400 Subject: [PATCH] Put point at beginning of display-time-world buffer. If display-time-world decides to popup vertically from the bottom of the frame and scroll-margin is nonzero, the top of the buffer contents are hidden due to scroll. * lisp/time.el (display-time-world-display): Move point to point-min after inserting contents. --- lisp/time.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/time.el b/lisp/time.el index ba5792441c..651dd56779 100644 --- a/lisp/time.el +++ b/lisp/time.el @@ -535,7 +535,8 @@ See `display-time-world'." (setq fmt (concat "%-" (int-to-string max-width) "s %s\n")) (dolist (timedata (nreverse result)) (insert (format fmt (car timedata) (cdr timedata)))) - (delete-char -1))) + (delete-char -1)) + (goto-char (point-min))) ;;;###autoload (defun display-time-world () -- 2.39.2