From 4687edf46cbdf24bb29d15b313533ca77fc9c422 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 4 Feb 2015 01:06:13 -0500 Subject: Add dired-view-file-other-window command --- lisp/init-dired.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 7c40a06..cbded0f 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -58,9 +58,16 @@ (yes-or-no-p (format "Open %s files?" num-files))) (--each files (org-open-file it in-emacs))))) +(defun km/dired-view-file-other-window () + "In Dired, view this file in another window." + (interactive) + (view-file-other-window (dired-get-file-for-visit))) + ;; This overrides the binding for `list-directory'. (define-key dired-mode-map (kbd "C-c C-b") 'dired-up-directory) (global-set-key (kbd "C-x C-d") 'km/dired-switch-to-buffer) +;; This overrides `dired-do-run-mail'. +(define-key dired-mode-map "V" 'km/dired-view-file-other-window) (define-key ctl-x-4-map "D" 'km/dired-switch-to-buffer-other-window) -- cgit v1.2.3