diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-01-26 10:32:38 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-26 10:32:38 +0000 |
| commit | 4e6473c81edae87dd16137ee4622ee2275b1ea0a (patch) | |
| tree | 2570922c5a51f4a6ed507dc437f857dcccddf659 /lisp/vc.el | |
| parent | d0c037d81d868a35c1c5d0dffefc6324134c7cd3 (diff) | |
| download | emacs-4e6473c81edae87dd16137ee4622ee2275b1ea0a.tar.gz | |
(vc-version-diff): Make sure file name is expanded.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 11 |
1 files changed, 6 insertions, 5 deletions
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 |