From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 18 May 1997 07:53:03 +0000 (+0000)
Subject: Change SET-BUFFER-POINT! to change the first window that the buffer is
X-Git-Tag: 20090517-FFI~5175
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bc4a92960ded229b224b4716d3254e36b5e8b005;p=mit-scheme.git

Change SET-BUFFER-POINT! to change the first window that the buffer is
shown in if it is not the selected buffer.
---

diff --git a/v7/src/edwin/curren.scm b/v7/src/edwin/curren.scm
index e0401cf81..4e8ff9f5f 100644
--- a/v7/src/edwin/curren.scm
+++ b/v7/src/edwin/curren.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: curren.scm,v 1.121 1996/04/24 01:49:03 cph Exp $
+;;;	$Id: curren.scm,v 1.122 1997/05/18 07:53:03 cph Exp $
 ;;;
-;;;	Copyright (c) 1986, 1989-96 Massachusetts Institute of Technology
+;;;	Copyright (c) 1986, 1989-97 Massachusetts Institute of Technology
 ;;;
 ;;;	This material was developed by the Scheme project at the
 ;;;	Massachusetts Institute of Technology, Department of
@@ -536,7 +536,10 @@ The buffer is guaranteed to be selected at that time."
   (let ((window (selected-window)))
     (if (eq? buffer (window-buffer window))
 	(set-window-point! window mark)
-	(%set-buffer-point! buffer mark))))
+	(let ((windows (buffer-windows buffer)))
+	  (if (pair? windows)
+	      (set-window-point! (car windows) mark)
+	      (%set-buffer-point! buffer mark))))))
 
 (define (with-current-point point thunk)
   (let ((old-point))