From: Mark Oteiza <mvoteiza@udel.edu>
Date: Thu, 19 May 2016 23:01:08 +0000 (-0400)
Subject: Put point at beginning of display-time-world buffer.
X-Git-Tag: emacs-26.0.90~1926
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=970074470d7bc332fc36fd30feee93e1d6130177;p=emacs.git

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

diff --git a/lisp/time.el b/lisp/time.el
index ba5792441c4..651dd56779b 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 ()