* lisp/vc/vc-dir.el (vc-dir-display-file): New command.

(vc-dir-mode-map): Bind it to "\C-o".
(vc-dir-menu-map): Add it to menu.

Fixes: debbugs:19450
This commit is contained in:
Juri Linkov 2014-12-29 02:47:05 +02:00
parent c1eec81485
commit df0f2a5f3b
2 changed files with 17 additions and 0 deletions

View file

@ -1,3 +1,9 @@
2014-12-29 Juri Linkov <juri@linkov.net>
* vc/vc-dir.el (vc-dir-display-file): New command (bug#19450).
(vc-dir-mode-map): Bind it to "\C-o".
(vc-dir-menu-map): Add it to menu.
2014-12-29 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/etags.el (find-tag-other-window)

View file

@ -169,6 +169,9 @@ See `run-hooks'."
(define-key map [ise]
'(menu-item "Isearch Files..." vc-dir-isearch
:help "Incremental search a string in the marked files"))
(define-key map [display]
'(menu-item "Display in Other Window" vc-dir-display-file
:help "Display the file on the current line, in another window"))
(define-key map [open-other]
'(menu-item "Open in Other Window" vc-dir-find-file-other-window
:help "Find the file on the current line, in another window"))
@ -273,6 +276,7 @@ See `run-hooks'."
(define-key map "e" 'vc-dir-find-file) ; dired-mode compatibility
(define-key map "\C-m" 'vc-dir-find-file)
(define-key map "o" 'vc-dir-find-file-other-window)
(define-key map "\C-o" 'vc-dir-display-file)
(define-key map "\C-c\C-c" 'vc-dir-kill-dir-status-process)
(define-key map [down-mouse-3] 'vc-dir-menu)
(define-key map [mouse-2] 'vc-dir-toggle-mark)
@ -755,6 +759,13 @@ that share the same state."
(if event (posn-set-point (event-end event)))
(find-file-other-window (vc-dir-current-file)))
(defun vc-dir-display-file (&optional event)
"Display the file on the current line, in another window."
(interactive (list last-nonmenu-event))
(if event (posn-set-point (event-end event)))
(display-buffer (find-file-noselect (vc-dir-current-file))
t))
(defun vc-dir-isearch ()
"Search for a string through all marked buffers using Isearch."
(interactive)