diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/net/eww.el | 5 |
2 files changed, 7 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6f696afbbaf..a3fc6bd172f 100644 --- 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 2653d489f81..5aff8f533ef 100644 --- 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 () |