From 5e3270126256a9461302bb12c24aca54a0ff5f23 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 23 Jul 2014 22:13:52 -0400 Subject: Change method for binding mode-specific prefix --- lisp/init-dired.el | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 93a9105..ca5bb5c 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -70,10 +70,6 @@ (define-key km/dired-narrow-prefix-map "f" 'dired-narrow-fuzzy) (define-key km/dired-narrow-prefix-map "r" 'dired-narrow-regexp) -(defun km/dired-narrow-bindings () - (local-set-key (kbd "C-c m n") 'km/dired-narrow-prefix-map)) -(add-hook 'dired-mode-hook 'km/dired-narrow-bindings) - (define-key dired-mode-map "/" 'dired-narrow-fuzzy) (require-package 'dired-subtree) @@ -92,8 +88,11 @@ (define-key km/dired-subtree-prefix-map "@" 'dired-subtree-mark-subtree) (define-key km/dired-subtree-prefix-map "." 'dired-subtree-unmark-subtree) -(defun km/dired-subtree-bindings () - (local-set-key (kbd "C-c m s") 'km/dired-subtree-prefix-map)) -(add-hook 'dired-mode-hook 'km/dired-subtree-bindings) +(define-prefix-command 'km/dired-prefix-map) + +(define-key km/dired-prefix-map "n" 'km/dired-narrow-prefix-map) +(define-key km/dired-prefix-map "s" 'km/dired-subtree-prefix-map) + +(define-key dired-mode-map (kbd "C-c m") 'km/dired-prefix-map) (provide 'init-dired) -- cgit v1.2.3