emacs: New keybindings for windmove.

The S-left etc. bindings don't work well in terminals.  Define new
bindings for C-x w left/down/up/right; and C-x w h/j/k/l.

diff --git a/emacs b/emacs
index d54e8664f3b1df40c8b8db648d97e75505a0121a..bae4138ee6b5cb63d28e357f11de988e4723b849 100644 (file)
--- a/emacs
+++ b/emacs
@@ -298,6 +298,14 @@
 
 (trap
   (windmove-default-keybindings)
 
 (trap
   (windmove-default-keybindings)

+  (global-set-key [?\C-x ?w left] 'windmove-left)
+  (global-set-key [?\C-x ?w ?h] 'windmove-left)
+  (global-set-key [?\C-x ?w up] 'windmove-up)
+  (global-set-key [?\C-x ?w ?k] 'windmove-up)
+  (global-set-key [?\C-x ?w down] 'windmove-down)
+  (global-set-key [?\C-x ?w ?j] 'windmove-down)
+  (global-set-key [?\C-x ?w right] 'windmove-right)
+  (global-set-key [?\C-x ?w ?l] 'windmove-right)

   (setq windmove-wrap-around t))
 (trap (iswitchb-mode))
 (global-set-key [?\M-#] 'calc-dispatch)
   (setq windmove-wrap-around t))
 (trap (iswitchb-mode))
 (global-set-key [?\M-#] 'calc-dispatch)