Mercurial > emacs

changeset 41556:678f91af978a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-find-version): New function. (vc-version-other-window): Redefined in terms of the above.
author André Spiegel <spiegel@gnu.org>
date Mon, 26 Nov 2001 16:07:50 +0000
parents 3bd17f9a707f
children be985e4c1430
files lisp/vc.el
diffstat 1 files changed, 9 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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 <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 @@
   (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