mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Gerd Moellmann 2000-01-26 10:32:38 +00:00
parent d0c037d81d
commit 4e6473c81e
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

11
lisp/vc.el
View File

@ -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