diff options
| author | Ravi R Kiran <aine.marina@gmail.com> | 2013-12-28 04:54:27 (GMT) |
|---|---|---|
| committer | Ravikiran Rajagopal <aine.marina@gmail.com> | 2013-12-28 04:54:27 (GMT) |
| commit | c6a29bc4b80adb367776f17874a5ce1f86151f5d (patch) | |
| tree | ca716b7d4b1b7033b0954e6a212953c8d8365c2e /ravi-init-navigation.el | |
| parent | 6074efa72302560985f5d86549af43697b59fa6a (diff) | |
| download | dotemacs-c6a29bc4b80adb367776f17874a5ce1f86151f5d.zip dotemacs-c6a29bc4b80adb367776f17874a5ce1f86151f5d.tar.gz dotemacs-c6a29bc4b80adb367776f17874a5ce1f86151f5d.tar.bz2 | |
Macro bind-key does work
Diffstat (limited to 'ravi-init-navigation.el')
| -rw-r--r-- | ravi-init-navigation.el | 24 |
1 files changed, 11 insertions, 13 deletions
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 ) |