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

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116673
revision-id: address@hidden
parent: address@hidden
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-05 19:44:58 +0100
message:
  (eww-textarea-map): [tab] doesn't work on tty.
  
  
  Reported by Mario Lang.
  
  * net/shr.el (shr-map): Ditto.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-05 16:22:47 +0000
+++ b/lisp/ChangeLog    2014-03-05 18:44:58 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-03-05 12:39:13 +0000
+++ b/lisp/net/eww.el   2014-03-05 18:44:58 +0000
@@ -592,8 +592,8 @@
     (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 @@
     (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

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2014-02-28 20:00:12 +0000
+++ b/lisp/net/shr.el   2014-03-05 18:44:58 +0000
@@ -147,8 +147,8 @@
     (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)