[Emacs-diffs] trunk r113187: (eww-mode-map): Add a menu bar.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113187
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2013-06-26 15:07:24 +0200
message:
  (eww-mode-map): Add a menu bar.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/eww.el                eww.el-20130610114603-80ap3gwnw4x4m5ix-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-06-26 12:54:33 +0000
+++ b/lisp/ChangeLog    2013-06-26 13:07:24 +0000
@@ -2,6 +2,7 @@
 
        * net/eww.el (eww-mode): Undo isn't necessary in eww buffers,
        probably.
+       (eww-mode-map): Add a menu bar.
 
 2013-06-26  Glenn Morris  <address@hidden>
 

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-26 12:54:33 +0000
+++ b/lisp/net/eww.el   2013-06-26 13:07:24 +0000
@@ -335,6 +335,20 @@
     (define-key map "&" 'eww-browse-with-external-browser)
     (define-key map "d" 'eww-download)
     (define-key map "w" 'eww-copy-page-url)
+    (define-key map "C" 'url-cookie-list)
+
+    (easy-menu-define nil map ""
+      '("eww"
+       ["Quit" eww-quit t]
+       ["Reload" eww-reload t]
+       ["Back to previous page" eww-back-url
+        :active (not (zerop (length eww-history)))]
+       ["Forward to next page" eww-forward-url
+        :active (not (zerop eww-history-position))]
+       ["Browse with external browser" eww-browse-with-external-browser t]
+       ["Download" eww-download t]
+       ["Copy page URL" eww-copy-page-url t]
+       ["List cookies" url-cookie-list t]))
     map))
 
 (define-derived-mode eww-mode nil "eww"