# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 872317028 0
# Node ID e39dadab5521a9deb8b0d8ee7a87295e3a39edac
# Parent  51345fa7e08b1477be1a958c20e84ef60959034e
(vc-version-diff): Mention that default file is visited file.

diff -r 51345fa7e08b -r e39dadab5521 lisp/vc.el
--- a/lisp/vc.el	Sat Aug 23 06:12:46 1997 +0000
+++ b/lisp/vc.el	Sat Aug 23 06:17:08 1997 +0000
@@ -1301,7 +1301,9 @@
 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