From bc4a92960ded229b224b4716d3254e36b5e8b005 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 18 May 1997 07:53:03 +0000 Subject: [PATCH] Change SET-BUFFER-POINT! to change the first window that the buffer is shown in if it is not the selected buffer. --- v7/src/edwin/curren.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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)) -- 2.25.1