From 147a2a8861e8b4838427db4d0a8e1ba6be320bfe Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 8 Jul 2019 01:54:29 +0300 Subject: * 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 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 -- cgit v1.2.1