* net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f696afbbaf453c3f2fc21e4e9e6a9fa5d716b69..a3fc6bd172f860a11555b5896733da5abfc2b68c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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  <lekktu@gmail.com>
 
        * emacs-lisp/tabulated-list.el (tabulated-list-init-header):

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 2653d489f8193f78daddda31ef00381b80f1b4d0..5aff8f533ef49e51dc9fc79c12ed583047215fb7 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -415,12 +415,14 @@ appears in a <link> or <a> tag."
 (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 @@ appears in a <link> or <a> tag."
     (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 @@ appears in a <link> or <a> tag."
   (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 @@ appears in a <link> or <a> tag."
 (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 ()