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

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 116668
revision-id: address@hidden
parent: address@hidden
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2014-03-05 13:39:13 +0100
message:
  * 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.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-05 07:04:01 +0000
+++ b/lisp/ChangeLog    2014-03-05 12:39:13 +0000
@@ -1,3 +1,8 @@
+2014-03-05  Lars Ingebrigtsen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * minibuffer.el (completion-hilit-commonality):

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2014-01-25 19:15:42 +0000
+++ b/lisp/net/eww.el   2014-03-05 12:39:13 +0000
@@ -186,12 +186,6 @@
   (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 @@
     (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 @@
     (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)