[Emacs-diffs] trunk r113145: * net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 113145
revision-id: address@hidden
parent: address@hidden
author: Ivan Kanis <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-06-23 20:29:30 +0200
message:
  * net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps.
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-23 18:27:58 +0000
+++ b/lisp/ChangeLog    2013-06-23 18:29:30 +0000
@@ -6,6 +6,8 @@
        (eww-mode-map): New keystroke.
        (eww-browse-with-external-browser): New command.
 
+       * net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps.
+
 2013-06-23  Juanma Barranquero  <address@hidden>
 
        * emacs-lisp/tabulated-list.el (tabulated-list-init-header):

=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el   2013-06-23 18:27:58 +0000
+++ b/lisp/net/eww.el   2013-06-23 18:29:30 +0000
@@ -415,12 +415,14 @@
 (defvar eww-submit-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\r" 'eww-submit)
+    (define-key map [(control c) (control c)] 'eww-submit)
     map))
 
 (defvar eww-checkbox-map
   (let ((map (make-sparse-keymap)))
     (define-key map [space] 'eww-toggle-checkbox)
     (define-key map "\r" 'eww-toggle-checkbox)
+    (define-key map [(control c) (control c)] 'eww-submit)
     map))
 
 (defvar eww-text-map
@@ -428,6 +430,7 @@
     (set-keymap-parent map text-mode-map)
     (define-key map "\r" 'eww-submit)
     (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)
@@ -437,6 +440,7 @@
   (let ((map (make-keymap)))
     (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)
     map))
@@ -444,6 +448,7 @@
 (defvar eww-select-map
   (let ((map (make-sparse-keymap)))
     (define-key map "\r" 'eww-change-select)
+    (define-key map [(control c) (control c)] 'eww-submit)
     map))
 
 (defun eww-beginning-of-text ()