(vc-find-version): New function.

(vc-version-other-window): Redefined in terms of the above.

diff --git a/lisp/vc.el b/lisp/vc.el
index b9212326b87b494e5bb77182cd0ce1e312603afd..2db97de80413178df3b125a464f43e563873675e 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 ;; Keywords: tools
 
-;; $Id: vc.el,v 1.320 2001/11/15 10:31:17 spiegel Exp $
+;; $Id: vc.el,v 1.321 2001/11/23 10:11:29 spiegel Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -1908,14 +1908,18 @@ If `F.~REV~' already exists, use it instead of checking it out again."
   (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)))
+                   rev)))
+    (switch-to-buffer-other-window (vc-find-version file version))))
+
+(defun vc-find-version (file version)
+  "Read VERSION of FILE into a buffer and return the buffer."
+  (let ((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)
           (rename-file automatic-backup manual-backup nil)
         (vc-call checkout file nil version manual-backup)))
-    (find-file-other-window manual-backup)))
+    (find-file-noselect manual-backup)))
 
 ;; Header-insertion code