Mercurial > emacs

changeset 19484:e39dadab5521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-version-diff): Mention that default file is visited file.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Aug 1997 06:17:08 +0000
parents 51345fa7e08b
children eab8baa19dfa
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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