mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

Put point at beginning of display-time-world buffer.

Browse source 
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.
This commit is contained in:
Mark Oteiza 2016-05-19 19:01:08 -04:00
parent e8a28b295f
commit 970074470d
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/time.el
View file

@ -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 ()