[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re-mapped keybindings (ref: ) [PATCH]



On 2017-12-11 13:33, Katsumi Yamaoka wrote:
> I'm ok.  Even if I cannot remember such a complex keystroke, the
> command is usable in the menu bar and the tool bar as well. :)

The attached patch re-maps the key-bindings as we discussed.

There are so many. If you agree, I would like to re-order the list of
key-bindings in some easier to navigate fashion, either alphabetically
by keystroke, or alphabetically by function name, or conceptually. If
you agree, do you have a preference?

-- 
hkp://keys.gnupg.net
CA45 09B5 5351 7C11 A9D1  7286 0036 9E45 1595 8BC0
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1694
diff -u -r1.1694 w3m.el
--- w3m.el	11 Dec 2017 04:30:37 -0000	1.1694
+++ w3m.el	12 Dec 2017 07:05:46 -0000
@@ -8165,6 +8165,7 @@
 for users.  See Info node `(elisp)Key Binding Conventions'.")
 (unless w3m-ctl-c-map
   (let ((map (make-sparse-keymap)))
+    (define-key map "\M-h" 'w3m-history)
     (define-key map "\C-@" 'w3m-history-store-position)
     (if (featurep 'xemacs)
 	(define-key map [(control space)] 'w3m-history-store-position)
@@ -8315,7 +8316,8 @@
     (define-key map "H" 'w3m-gohome)
     (define-key map "A" 'w3m-antenna)
     (define-key map "W" 'w3m-weather)
-    (define-key map "S" 'w3m-search)
+    (define-key map "s" 'w3m-search)
+    (define-key map "S" 'w3m-search-new-session)
     (define-key map "D" 'w3m-dtree)
     (define-key map ">" 'w3m-scroll-left)
     (define-key map "<" 'w3m-scroll-right)
@@ -8326,7 +8328,6 @@
     (define-key map "\C-e" 'w3m-end-of-line)
     (define-key map "\\" 'w3m-view-source)
     (define-key map "=" 'w3m-view-header)
-    (define-key map "s" 'w3m-history)
     (define-key map "E" 'w3m-edit-current-url)
     (define-key map "e" 'w3m-edit-this-url)
     (define-key map "|" 'w3m-pipe-source)
Index: ChangeLog
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/ChangeLog,v
retrieving revision 1.3636
diff -u -r1.3636 ChangeLog
--- ChangeLog	11 Dec 2017 04:30:37 -0000	1.3636
+++ ChangeLog	12 Dec 2017 07:05:49 -0000
@@ -1,3 +1,9 @@
+2017-12-12  Boruch Baum  <boruch_baum@xxxxxxx>
+
+	* w3m.el (w3m-lynx-like-map): Remap "s" to `w3m-search', "S" to
+	`w3m-search-new-session'. [emacs-w3m:12838]
+	(w3m-ctl-c-map): Remap "C-c M-h" to `w3m-history' [emacs-w3m:12842]
+
 2017-12-08  Boruch Baum  <boruch_baum@xxxxxxx>
 
 	[emacs-w3m:12840]