mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
* net/eww.el (eww-mode-map): [tab] doesn't work on tty.
(eww-setup-buffer): Clear next/prev/etc more reliably.
This commit is contained in:
Lars Ingebrigtsen 2014-03-05 13:39:13 +01:00
parent 47b73b35c1
commit 90f04e4c85
2 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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):

18
lisp/net/eww.el
View File

@ -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)