aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/eww.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 372b674ecd7..128752a62ef 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -274,6 +274,10 @@ word(s) will be searched for via `eww-search-prefix'."
274 (setq url (concat url "/")))) 274 (setq url (concat url "/"))))
275 (setq url (concat eww-search-prefix 275 (setq url (concat eww-search-prefix
276 (replace-regexp-in-string " " "+" url)))))) 276 (replace-regexp-in-string " " "+" url))))))
277 (switch-to-buffer
278 (if (eq major-mode 'eww-mode)
279 (current-buffer)
280 (get-buffer-create "*eww*")))
277 (eww-setup-buffer) 281 (eww-setup-buffer)
278 (plist-put eww-data :url url) 282 (plist-put eww-data :url url)
279 (plist-put eww-data :title "") 283 (plist-put eww-data :title "")
@@ -556,7 +560,6 @@ Currently this means either text/html or application/xhtml+xml."
556 (goto-char (point-min))) 560 (goto-char (point-min)))
557 561
558(defun eww-setup-buffer () 562(defun eww-setup-buffer ()
559 (switch-to-buffer (get-buffer-create "*eww*"))
560 (when (or (plist-get eww-data :url) 563 (when (or (plist-get eww-data :url)
561 (plist-get eww-data :dom)) 564 (plist-get eww-data :dom))
562 (eww-save-history)) 565 (eww-save-history))