From: Gerd Moellmann <gerd@gnu.org>
Date: Wed, 26 Jan 2000 10:32:38 +0000 (+0000)
Subject: (vc-version-diff): Make sure file name is expanded.
X-Git-Tag: emacs-pretest-21.0.90~5253
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e6473c81edae87dd16137ee4622ee2275b1ea0a;p=emacs.git

(vc-version-diff): Make sure file name is expanded.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3bee2004566..30dc9eefc86 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2000-01-25  Andre Spiegel  <spiegel@gnu.org>
+
+	* vc.el (vc-version-diff): Make sure file name is expanded.
+
 2000-01-25  Gerd Moellmann  <gerd@gnu.org>
 
 	* scroll-bar.el (scroll-bar-timer): Variable removed.
diff --git a/lisp/vc.el b/lisp/vc.el
index 11503f1928c..e6766996e91 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Andre Spiegel <spiegel@inf.fu-berlin.de>
 
-;; $Id: vc.el,v 1.257 1999/10/15 15:44:52 monnier Exp $
+;; $Id: vc.el,v 1.258 1999/12/02 14:21:08 gerd Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1406,10 +1406,11 @@ 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 (if buffer-file-name
-				   "File or dir to diff: (default visited file) "
-				 "File or dir to diff: ")
-                                default-directory buffer-file-name t))
+   (let ((file (expand-file-name
+                (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
      (cond