From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 26 Sep 2022 11:20:59 +0000 (+0200)
Subject: Keep point in eww after hitting `g'
X-Git-Tag: emacs-29.0.90~1856^2~218
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aca4d7cfc40272065de15980698770f939068b67;p=emacs.git

Keep point in eww after hitting `g'

* lisp/net/eww.el (eww-retrieve): Keep point after hitting `g'
(bug#58076).
---

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 34e74f8ffaa..af938e3c192 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -415,13 +415,11 @@ For more information, see Info node `(eww) Top'."
 (defun eww-retrieve (url callback cbargs)
   (cond
    ((null eww-retrieve-command)
-    (url-retrieve url #'eww-render
-                  (list url nil (current-buffer))))
+    (url-retrieve url #'eww-render cbargs))
    ((eq eww-retrieve-command 'sync)
-    (let ((orig-buffer (current-buffer))
-          (data-buffer (url-retrieve-synchronously url)))
+    (let ((data-buffer (url-retrieve-synchronously url)))
       (with-current-buffer data-buffer
-        (eww-render nil url nil orig-buffer))))
+        (apply #'eww-render nil url cbargs))))
    (t
     (let ((buffer (generate-new-buffer " *eww retrieve*"))
           (error-buffer (generate-new-buffer " *eww error*")))