>From 885156af074991ab9a003a641ec1e82d46fc8d78 Mon Sep 17 00:00:00 2001 From: Ivan Kanis Date: Sun, 23 Jun 2013 18:50:20 +0200 Subject: [PATCH 3/3] C-c C-c submit current form --- emacs/gnus/eww.el | 5 +++++ 1 files changed, 5 insertions(+), 0 deletions(-) diff --git a/emacs/gnus/eww.el b/emacs/gnus/eww.el index 1b028b1..959fc4d 100644 --- a/emacs/gnus/eww.el +++ b/emacs/gnus/eww.el @@ -405,12 +405,14 @@ appears in a or 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 @@ -418,6 +420,7 @@ appears in a or 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) @@ -427,6 +430,7 @@ appears in a or 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)) @@ -434,6 +438,7 @@ appears in a or 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 () -- 1.7.1