diff options
author | Kyle Meyer <kyle@kyleam.com> | 2014-07-23 22:13:52 -0400 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2014-07-23 22:13:52 -0400 |
commit | 5e3270126256a9461302bb12c24aca54a0ff5f23 (patch) | |
tree | 08d92bfd00be74680630f71bf50e018e2a4e0825 /lisp/init-dired.el | |
parent | 2fe9e0a7d827fe21b3bc222073d21f9e90e6d370 (diff) | |
download | emacs.d-5e3270126256a9461302bb12c24aca54a0ff5f23.tar.gz |
Change method for binding mode-specific prefix
Diffstat (limited to 'lisp/init-dired.el')
-rw-r--r-- | lisp/init-dired.el | 13 |
1 files changed, 6 insertions, 7 deletions
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) |