From 6952100dc3abfd9df124ca45d924a18b654d2de3 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 5 Mar 2014 19:44:58 +0100
Subject: [PATCH] (eww-textarea-map): [tab] doesn't work on tty.

Reported by Mario Lang.

* net/shr.el (shr-map): Ditto.
---
 lisp/ChangeLog  | 4 ++++
 lisp/net/eww.el | 8 ++++----
 lisp/net/shr.el | 4 ++--
 3 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ee1f2f21e..73ced85d79 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -18,6 +18,10 @@
 
 	* net/eww.el (eww-mode-map): [tab] doesn't work on tty.
 	(eww-setup-buffer): Clear next/prev/etc more reliably.
+	(eww-textarea-map): [tab] doesn't work on tty.  Reported by Mario
+	Lang.
+
+	* net/shr.el (shr-map): Ditto.
 
 2014-03-04  Glenn Morris  <rgm@gnu.org>
 
diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 4d5fc4a80e..e8eb09c9a8 100644
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -592,8 +592,8 @@ appears in a <link> or <a> tag."
     (define-key map [(control a)] 'eww-beginning-of-text)
     (define-key map [(control c) (control c)] 'eww-submit)
     (define-key map [(control e)] 'eww-end-of-text)
-    (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)
     map))
 
 (defvar eww-textarea-map
@@ -601,8 +601,8 @@ appears in a <link> or <a> tag."
     (set-keymap-parent map text-mode-map)
     (define-key map "\r" 'forward-line)
     (define-key map [(control c) (control c)] 'eww-submit)
-    (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)
     map))
 
 (defvar eww-select-map
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4801aca2fc..8b68b6f4bc 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -147,8 +147,8 @@ cid: URL as the argument.")
     (define-key map "a" 'shr-show-alt-text)
     (define-key map "i" 'shr-browse-image)
     (define-key map "z" 'shr-zoom-image)
-    (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 [follow-link] 'mouse-face)
     (define-key map [mouse-2] 'shr-browse-url)
     (define-key map "I" 'shr-insert-image)
-- 
2.20.1