(eww-textarea-map): [tab] doesn't work on tty.

Reported by Mario Lang.

* net/shr.el (shr-map): Ditto.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7ee1f2f21eccfb7b20f675c414444e7640aacbde..73ced85d79669b84505f3ba855bb4efc887aafab 100644 (file)
--- 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 4d5fc4a80e0f32b87f35629cf28e512a6c226183..e8eb09c9a8e3f8369a4728ccdaa58195b533b0de 100644 (file)
--- 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 4801aca2fcce3d806ad8ffb6a9fc2141de80d5ca..8b68b6f4bc7fbf355dee8d549a3149a45fec4901 100644 (file)
--- 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)