From 31410dcb09783b69f0e679ab90b7347dea028357 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Mon, 1 Dec 2014 17:09:01 +0100 Subject: [PATCH] Minor eww point placement fixup * net/eww.el (eww): Leave point in a place that doesn't cause scrolling when displaying "Loading...". --- lisp/ChangeLog | 5 +++++ lisp/net/eww.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0ec62db5010..b736b2d5617 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-12-01 Lars Magne Ingebrigtsen + + * net/eww.el (eww): Leave point in a place that doesn't cause + scrolling when displaying "Loading...". + 2014-12-01 Eric S. Raymond * vc/vc.el, vc-hooks.el, and all backends: API simplification; diff --git a/lisp/net/eww.el b/lisp/net/eww.el index 2059b5ea783..70427c16fdb 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -258,7 +258,8 @@ word(s) will be searched for via `eww-search-prefix'." (plist-put eww-data :url url) (eww-update-header-line-format) (let ((inhibit-read-only t)) - (insert (format "Loading %s..." url)))) + (insert (format "Loading %s..." url)) + (goto-char (point-min)))) (url-retrieve url 'eww-render (list url nil (current-buffer)))) -- 2.39.5