eww: Have `q' do a normal `quit-window' instead of killing the buffer.

1 files changed, 1 insertions, 7 deletions

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index d8c0010b4ce..2726748337c 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -378,7 +378,7 @@ word(s) will be searched for via `eww-search-prefix'."
 (defvar eww-mode-map
   (let ((map (make-sparse-keymap)))
     (suppress-keymap map)
-    (define-key map "q" 'eww-quit)
+    (define-key map "q" 'quit-window)
     (define-key map "g" 'eww-reload)
     (define-key map [tab] 'shr-next-link)
     (define-key map [backtab] 'shr-previous-link)
@@ -447,12 +447,6 @@ word(s) will be searched for via `eww-search-prefix'."
     (eww-save-history))
   (eww url))
 
-(defun eww-quit ()
-  "Exit the Emacs Web Wowser."
-  (interactive)
-  (setq eww-history nil)
-  (kill-buffer (current-buffer)))
-
 (defun eww-back-url ()
   "Go to the previously displayed page."
   (interactive)