chiark / gitweb /
emacs: Apply the windmove bindings regardless of windmove presence.
authorMark Wooding <mdw@distorted.org.uk>
Tue, 6 May 2008 14:37:31 +0000 (15:37 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 6 May 2008 14:37:31 +0000 (15:37 +0100)
It seems silly protecting the bindings, which can't fail anyway.

emacs

diff --git a/emacs b/emacs
index f3429bdbc8bc7d3a3e69341145c5a67e8fa3d5df..8df0d9ccb9c60cdececa7c825c911294c5a284a8 100644 (file)
--- a/emacs
+++ b/emacs
 ;; --- Global keymap changes ---
 
 (trap
 ;; --- Global keymap changes ---
 
 (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))
+  (windmove-default-keybindings))
+(setq windmove-wrap-around t)
 (trap (iswitchb-mode))
 (trap (iswitchb-mode))
+(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)
 (global-set-key [?\M-#] 'calc-dispatch)
 (global-set-key [?\C-x ?/] 'auto-fill-mode)
 (global-set-key [?\C-x ?w ?d] 'mdw-divvy-window)
 (global-set-key [?\M-#] 'calc-dispatch)
 (global-set-key [?\C-x ?/] 'auto-fill-mode)
 (global-set-key [?\C-x ?w ?d] 'mdw-divvy-window)