[Emacs-diffs] master 147a2a8: * lisp/vc/vc-dir.el (vc-dir-view-file): New command for consistency with dired

[Juri Linkov]

branch: master
commit 147a2a8861e8b4838427db4d0a8e1ba6be320bfe
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    * 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)
---
 lisp/vc/vc-dir.el | 5 +++++
 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 41b1087..be1084d 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 f62e108..8b82856 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