mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

eww: Revert 2013-12-11T19:01:44Z!tzz@lifelogs.com UI wrappers (eww-exit, eww-close)

Browse Source 
* net/eww.el (eww-exit, eww-close, eww-mode-map): Revert change of
2013-12-11T19:01:44Z!tzz@lifelogs.com.
This commit is contained in:
Ted Zlatanov 2013-12-19 11:25:25 -05:00
parent 2230a6e314
commit 8f2be364dc
2 changed files with 8 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2013-12-19 Teodor Zlatanov <tzz@lifelogs.com>
* net/eww.el (eww-exit, eww-close, eww-mode-map): Revert change of
2013-12-11T19:01:44Z!tzz@lifelogs.com.
2013-12-19 Stefan Monnier <monnier@iro.umontreal.ca>
* hl-line.el (hl-line-make-overlay): New fun. Set priority (bug#16192).

18
lisp/net/eww.el
View File

@ -395,8 +395,7 @@ word(s) will be searched for via `eww-search-prefix'."
(defvar eww-mode-map
(let ((map (make-sparse-keymap)))
(suppress-keymap map)
(define-key map "q" 'eww-close)
(define-key map "Q" 'eww-exit)
(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)
@ -423,8 +422,8 @@ word(s) will be searched for via `eww-search-prefix'."
(easy-menu-define nil map ""
'("Eww"
["Exit" eww-exit t]
["Close browser" eww-close t]
["Exit" eww-quit t]
["Close browser" quit-window t]
["Reload" eww-reload t]
["Back to previous page" eww-back-url
:active (not (zerop (length eww-history)))]
@ -455,17 +454,6 @@ word(s) will be searched for via `eww-search-prefix'."
;;(setq buffer-read-only t)
)
(defun eww-exit ()
"Exit the Emacs Web Wowser."
(interactive)
(setq eww-history nil)
(kill-buffer (current-buffer)))
(defun eww-close ()
"Close the Emacs Web Wowser browser, leaving history intact."
(interactive)
(quit-window))
(defun eww-save-history ()
(push (list :url eww-current-url
:title eww-current-title