diff options
author | Juri Linkov <juri@linkov.net> | 2019-07-08 01:54:29 +0300 |
---|---|---|
committer | Juri Linkov <juri@linkov.net> | 2019-07-08 01:54:29 +0300 |
commit | 147a2a8861e8b4838427db4d0a8e1ba6be320bfe (patch) | |
tree | 0152aef909d59f227c42b7220627e73d47005be0 | |
parent | 8d09cb21f8ad4c3d3197dadfcc38fe925da558d0 (diff) | |
download | emacs-147a2a8861e8b4838427db4d0a8e1ba6be320bfe.tar.gz |
* lisp/vc/vc-dir.el (vc-dir-view-file): New command for consistency with dired
* lisp/vc/vc-git.el (vc-git-log-incoming, vc-git-log-outgoing):
Remove interactive spec from non-command functions. (Bug#12492)
-rw-r--r-- | lisp/vc/vc-dir.el | 5 | ||||
-rw-r--r-- | lisp/vc/vc-git.el | 2 |
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el index 41b1087ee59..be1084d4abe 100644 --- a/lisp/vc/vc-dir.el +++ b/lisp/vc/vc-dir.el @@ -786,6 +786,11 @@ that share the same state." (display-buffer (find-file-noselect (vc-dir-current-file)) t)) +(defun vc-dir-view-file () + "Examine a file on the current line in view mode." + (interactive) + (view-file (vc-dir-current-file))) + (defun vc-dir-isearch () "Search for a string through all marked buffers using Isearch." (interactive) diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index f62e1083229..8b828563325 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -1048,7 +1048,6 @@ If LIMIT is a revision string, use it as an end-revision." '("--"))))))) (defun vc-git-log-outgoing (buffer remote-location) - (interactive) (vc-setup-buffer buffer) (vc-git-command buffer 'async nil @@ -1062,7 +1061,6 @@ If LIMIT is a revision string, use it as an end-revision." "..HEAD"))) (defun vc-git-log-incoming (buffer remote-location) - (interactive) (vc-setup-buffer buffer) (vc-git-command nil 0 nil "fetch") (vc-git-command |