From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 5 Mar 2014 12:39:13 +0000 (+0100)
Subject: * net/eww.el (eww-mode-map): [tab] doesn't work on tty.
X-Git-Tag: emacs-24.3.90~282
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90f04e4c8579290bde13dac3ae70ba3bd73d934b;p=emacs.git

* net/eww.el (eww-mode-map): [tab] doesn't work on tty.

* net/eww.el (eww-mode-map): [tab] doesn't work on tty.
(eww-setup-buffer): Clear next/prev/etc more reliably.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d799dbbd961..a83f7e30de3 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-05  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* net/eww.el (eww-mode-map): [tab] doesn't work on tty.
+	(eww-setup-buffer): Clear next/prev/etc more reliably.
+
 2014-03-04  Glenn Morris  <rgm@gnu.org>
 
 	* minibuffer.el (completion-hilit-commonality):
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 65b1c6b2d7d..4d5fc4a80e0 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -186,12 +186,6 @@ word(s) will be searched for via `eww-search-prefix'."
   (let ((redirect (plist-get status :redirect)))
     (when redirect
       (setq url redirect)))
-  (setq-local eww-next-url nil)
-  (setq-local eww-previous-url nil)
-  (setq-local eww-up-url nil)
-  (setq-local eww-home-url nil)
-  (setq-local eww-start-url nil)
-  (setq-local eww-contents-url nil)
   (let* ((headers (eww-parse-headers))
 	 (content-type
 	  (mail-header-parse-content-type
@@ -393,7 +387,13 @@ word(s) will be searched for via `eww-search-prefix'."
     (remove-overlays)
     (erase-buffer))
   (unless (eq major-mode 'eww-mode)
-    (eww-mode)))
+    (eww-mode))
+  (setq-local eww-next-url nil)
+  (setq-local eww-previous-url nil)
+  (setq-local eww-up-url nil)
+  (setq-local eww-home-url nil)
+  (setq-local eww-start-url nil)
+  (setq-local eww-contents-url nil))
 
 (defun eww-view-source ()
   (interactive)
@@ -412,8 +412,8 @@ word(s) will be searched for via `eww-search-prefix'."
     (suppress-keymap map)
     (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)
+    (define-key map [?\t] 'shr-next-link)
+    (define-key map [?\M-\t] 'shr-previous-link)
     (define-key map [delete] 'scroll-down-command)
     (define-key map [?\S-\ ] 'scroll-down-command)
     (define-key map "\177" 'scroll-down-command)