From c6a29bc4b80adb367776f17874a5ce1f86151f5d Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Fri, 27 Dec 2013 20:54:27 -0800
Subject: Macro bind-key does work


diff --git a/ravi-init-navigation.el b/ravi-init-navigation.el
index ad8f11d..e56ce07 100644
--- a/ravi-init-navigation.el
+++ b/ravi-init-navigation.el
@@ -30,19 +30,17 @@
   (progn
     (region-bindings-mode-enable)
 
-    ;; The macro 'bind-key does not seem to work for region-bindings-mode-map
-
-    (define-key region-bindings-mode-map "f" 'forward-word)
-    (define-key region-bindings-mode-map "b" 'backward-word)
+    (bind-key "f" 'forward-word region-bindings-mode-map)
+    (bind-key "b" 'backward-word region-bindings-mode-map)
 
     ;; HJKL cluster to replace arrow keys
-    (define-key region-bindings-mode-map "h" 'backward-char)
-    (define-key region-bindings-mode-map "l" 'forward-char)
-    (define-key region-bindings-mode-map "j" 'previous-line)
-    (define-key region-bindings-mode-map "k" 'next-line)
+    (bind-key "h" 'backward-char region-bindings-mode-map)
+    (bind-key "l" 'forward-char region-bindings-mode-map)
+    (bind-key "j" 'previous-line region-bindings-mode-map)
+    (bind-key "k" 'next-line region-bindings-mode-map)
 
     ;; Most of the time, we mark regions to copy
-    (define-key region-bindings-mode-map "w" 'kill-ring-save)
+    (bind-key "w" 'kill-ring-save region-bindings-mode-map)
     )
   :ensure t
   )
@@ -72,10 +70,10 @@
   (setq mc/list-file (ravi/emacs-file "past/mc-lists.el"))
   :config
   (progn
-    (define-key region-bindings-mode-map "a" 'mc/mark-all-like-this)
-    (define-key region-bindings-mode-map "p" 'mc/mark-previous-like-this)
-    (define-key region-bindings-mode-map "n" 'mc/mark-next-like-this)
-    (define-key region-bindings-mode-map "m" 'mc/mark-more-like-this-extended)
+    (bind-key "a" 'mc/mark-all-like-this region-bindings-mode-map)
+    (bind-key "p" 'mc/mark-previous-like-this region-bindings-mode-map)
+    (bind-key "n" 'mc/mark-next-like-this region-bindings-mode-map)
+    (bind-key "m" 'mc/mark-more-like-this-extended region-bindings-mode-map)
     )
   :ensure t
   )
-- 
cgit v0.10.1