From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 3 Apr 2000 16:57:08 +0000 (+0000)
Subject: In vc-dired mode, don't select buffers containing the files being
X-Git-Tag: 20090517-FFI~4108
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6642237d3a80ebb3fe7d39988a48ce2e2f92afd3;p=mit-scheme.git

In vc-dired mode, don't select buffers containing the files being
checked in; just pop them up.
---

diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm
index 294d34d07..c94ecf4a6 100644
--- a/v7/src/edwin/vc.scm
+++ b/v7/src/edwin/vc.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: vc.scm,v 1.60 2000/04/02 03:11:48 cph Exp $
+;;; $Id: vc.scm,v 1.61 2000/04/03 16:57:08 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-2000 Massachusetts Institute of Technology
 ;;;
@@ -479,7 +479,7 @@ merge in the changes into your working copy."
 	       (lambda ()
 		 (let ((buffer (find-file-noselect workfile #t)))
 		   (if from-dired?
-		       (select-buffer-other-window buffer)
+		       (pop-up-buffer buffer #f #t)
 		       (select-buffer buffer))
 		   ;; If the file on disk is newer, then the user just
 		   ;; said no to rereading it.  So the user probably