[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113145: * net/eww.el: Bind `C-c C-c' to "submit" in
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] trunk r113145: * net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps. |
Date: |
Sun, 23 Jun 2013 18:29:34 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113145: * net/eww.el: Bind `C-c C-c' to "submit" in all form keymaps.,
Lars Ingebrigtsen <=