From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 25 Oct 2000 21:45:09 +0000 (+0000)
Subject: (vc-version-other-window): Bind `file'.
X-Git-Tag: emacs-pretest-21.0.90~569
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5e011cb2e878f607b7154af46b6aec94e0df27a5;p=emacs.git

(vc-version-other-window): Bind `file'.
---

diff --git a/lisp/vc.el b/lisp/vc.el
index 3229ae9864e..7a236c84975 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see below for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id: vc.el,v 1.280 2000/10/10 01:25:40 ttn Exp $
+;; $Id: vc.el,v 1.281 2000/10/22 15:37:51 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1570,15 +1570,16 @@ If the current buffer is named `F', the version is named `F.~REV~'.
 If `F.~REV~' already exists, it is used instead of being re-created."
   (interactive "sVersion to visit (default is workfile version): ")
   (vc-ensure-vc-buffer)
-  (let* ((version (if (string-equal rev "")
-		      (vc-workfile-version buffer-file-name)
+  (let* ((file buffer-file-name)
+	 (version (if (string-equal rev "")
+		      (vc-workfile-version file)
 		    rev))
 	 (automatic-backup (vc-version-backup-file-name file version))
          (manual-backup (vc-version-backup-file-name file version 'manual)))
     (unless (file-exists-p manual-backup)
       (if (file-exists-p automatic-backup)
           (copy-file automatic-backup manual-backup nil 'keep-date)
-        (vc-call checkout buffer-file-name nil version manual-backup)))
+        (vc-call checkout file nil version manual-backup)))
     (find-file-other-window manual-backup)))
 
 ;; Header-insertion code