* 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:
parent
c1eec81485
commit
df0f2a5f3b
2 changed files with 17 additions and 0 deletions
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue