Use a separate history for the eww prompt

* lisp/net/eww.el (eww-prompt-history): A separate history
variable for the interactive eww prompt.
(eww): Use it.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 3f1a1aeae3e2c47a5897025cc86c8875852790f4..cb7390f47247ea4336ba61260317b5120d3688f0 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -218,6 +218,7 @@ See also `eww-form-checkbox-selected-symbol'."
 (defvar eww-data nil)
 (defvar eww-history nil)
 (defvar eww-history-position 0)
+(defvar eww-prompt-history nil)
 
 (defvar eww-local-regex "localhost"
   "When this regex is found in the URL, it's not a keyword but an address.")
@@ -250,7 +251,7 @@ word(s) will be searched for via `eww-search-prefix'."
          (prompt (concat "Enter URL or keywords"
                          (if uris (format " (default %s)" (car uris)) "")
                          ": ")))
-     (list (read-string prompt nil nil uris))))
+     (list (read-string prompt nil 'eww-prompt-history uris))))
   (setq url (eww--dwim-expand-url url))
   (pop-to-buffer-same-window
    (if (eq major-mode 'eww-mode)