[Emacs-diffs] trunk r115340: eww: Have `q' do a normal `quit-window' instead of killing the buffer.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115340
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-12-01 18:00:04 +0100
message:
  eww: Have `q' do a normal `quit-window' instead of killing the buffer.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-01 15:59:17 +0000
+++ b/lisp/ChangeLog    2013-12-01 17:00:04 +0000
@@ -1,3 +1,8 @@
+2013-12-01  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/eww.el (eww-mode-map): Have `q' do a normal `quit-window'
+       instead of killing the buffer.
+
 2013-12-01  Stefan Monnier  <address@hidden>
 
        * simple.el (newline): Mention `electric-indent-mode' (bug#16015).

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-12-01 15:52:04 +0000
+++ b/lisp/net/eww.el   2013-12-01 17:00:04 +0000
@@ -378,7 +378,7 @@
 (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 @@
     (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)