* 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)

diff --git a/lisp/vc/vc-dir.el b/lisp/vc/vc-dir.el
index 41b1087ee59e561f5c2b5b2a75fbf0dc12d630d5..be1084d4abe4f1c73136758694bc46d8ebe53e90 100644 (file)
--- 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 f62e108322962d77304f4c623cbc2af9c46bf247..8b828563325768c80e257edf2f51a9563cfcceba 100644 (file)
--- 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