From 79d00189f14ddff7ef7ff7af6ee121fd560a40f9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 23 Aug 1997 06:17:08 +0000 Subject: [PATCH] (vc-version-diff): Mention that default file is visited file. --- lisp/vc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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