[Emacs-diffs] scratch/with-url 6ed787f 4/6: with-url now uses 'get, not "GET"

[Lars Ingebrigtsen]

branch: scratch/with-url
commit 6ed787fee618f7983bf6d615d89d7b76ce50fef4
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    with-url now uses 'get, not "GET"
---
 lisp/net/eww.el |    6 +++---
 lisp/net/shr.el |    4 +---
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 8ecf64b..062d740 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -283,7 +283,7 @@ word(s) will be searched for via `eww-search-prefix'."
   (eww-setup-buffer)
   (eww--fetch-url url))
 
-(cl-defun eww--fetch-url (url &key (method "GET") data point buffer encode)
+(cl-defun eww--fetch-url (url &key (method 'get) data point buffer encode)
   ;; Check whether the domain only uses "Highly Restricted" Unicode
   ;; IDNA characters.  If not, transform to punycode to indicate that
   ;; there may be funny business going on.
@@ -1402,8 +1402,8 @@ See URL 
`https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
     (eww--fetch-url
      url
      :method (if (cl-equalp (cdr (assq :method form)) "post")
-                 "POST"
-               "GET")
+                 'post
+               'get)
      :data values)))
 
 (defun eww-browse-with-external-browser (&optional url)
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index fe6f11d..bc24902 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1473,9 +1473,7 @@ The preference is a float determined from 
`shr-prefer-media-type'."
           (shr-insert alt))
         ((and (not shr-ignore-cache)
               (with-url-cached-p (shr-encode-url url)))
-          (let ((buffer (current-buffer))
-                end)
-            (setq end (set-marker (make-marker) (point)))
+          (let ((buffer (current-buffer)))
             (let ((data
                    (with-url ((shr-encode-url url)
                               :cache t