diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-25 21:45:09 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-10-25 21:45:09 +0000 |
| commit | 5e011cb2e878f607b7154af46b6aec94e0df27a5 (patch) | |
| tree | 0d2ec6fe69f90b4db747263e065a3a105d636f5e /lisp/vc.el | |
| parent | 3d647abe6a5ada3b71f4b49cdc3857498428c12d (diff) | |
| download | emacs-5e011cb2e878f607b7154af46b6aec94e0df27a5.tar.gz | |
(vc-version-other-window): Bind `file'.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 9 |
1 files changed, 5 insertions, 4 deletions
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 |