From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Mon, 1 Dec 2014 16:09:01 +0000 (+0100)
Subject: Minor eww point placement fixup
X-Git-Tag: emacs-25.0.90~2635^2~252
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31410dcb09783b69f0e679ab90b7347dea028357;p=emacs.git

Minor eww point placement fixup

* net/eww.el (eww): Leave point in a place that doesn't cause
scrolling when displaying "Loading...".
---

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  <larsi@gnus.org>
+
+	* net/eww.el (eww): Leave point in a place that doesn't cause
+	scrolling when displaying "Loading...".
+
 2014-12-01  Eric S. Raymond  <esr@snark.thyrsus.com>
 
 	* 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))))