From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 23 Aug 1997 06:17:08 +0000 (+0000)
Subject: (vc-version-diff): Mention that default file is visited file.
X-Git-Tag: emacs-20.1~464
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=79d00189f14ddff7ef7ff7af6ee121fd560a40f9;p=emacs.git

(vc-version-diff): Mention that default file is visited file.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index e945002ffd5..a49092e79e2 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1301,7 +1301,9 @@ and two version designators specifying which versions to compare."
 If FILE is a directory, generate diffs between versions for all registered
 files in or below it."
   (interactive 
-   (let ((file (read-file-name "File or directory to diff: "
+   (let ((file (read-file-name (if buffer-file-name
+				   "File or dir to diff: (default visited file) "
+				 "File or dir to diff: ")
                                 default-directory buffer-file-name t))
          (rel1-default nil) (rel2-default nil))
      ;; compute default versions based on the file state