# HG changeset patch # User Andr Spiegel # Date 1006790870 0 # Node ID 678f91af978ae013d7fb791027d00b51d9c40653 # Parent 3bd17f9a707f47cb02afd334a99fe1b145261186 (vc-find-version): New function. (vc-version-other-window): Redefined in terms of the above. diff -r 3bd17f9a707f -r 678f91af978a lisp/vc.el --- a/lisp/vc.el Mon Nov 26 15:27:43 2001 +0000 +++ b/lisp/vc.el Mon Nov 26 16:07:50 2001 +0000 @@ -6,7 +6,7 @@ ;; Maintainer: Andre Spiegel ;; 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 @@ (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