From 648fad4971c7642c5d4f12da3e9c8a4449d39be7 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 8 Mar 1994 21:44:50 +0000 Subject: [PATCH] Attempt to preserve the WINDOW-START-MARK of a buffer's window when the buffer is reverted. --- v7/src/edwin/vc.scm | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/v7/src/edwin/vc.scm b/v7/src/edwin/vc.scm index 9d6f12905..3939f89cf 100644 --- a/v7/src/edwin/vc.scm +++ b/v7/src/edwin/vc.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: vc.scm,v 1.5 1994/03/08 21:43:47 cph Exp $ +;;; $Id: vc.scm,v 1.6 1994/03/08 21:44:50 cph Exp $ ;;; ;;; Copyright (c) 1994 Massachusetts Institute of Technology ;;; @@ -840,7 +840,7 @@ the value of vc-log-mode-hook." ;;;; RCS Commands (define vc-type:rcs - (make-vc-type 'RCS "$Id: vc.scm,v 1.5 1994/03/08 21:43:47 cph Exp $")) + (make-vc-type 'RCS "$Id: vc.scm,v 1.6 1994/03/08 21:44:50 cph Exp $")) (define-vc-master-template vc-type:rcs (lambda (pathname) @@ -1198,15 +1198,16 @@ the value of vc-log-mode-hook." (if (null? point-contexts) (if point (set-buffer-point! buffer point)) (for-each (lambda (entry) - (if (and (window-live? (car entry)) - (eq? buffer (window-buffer (car entry)))) - (begin - (let ((m (vc-find-context buffer (cadr entry)))) - (if m - (set-window-point! (car entry) m))) - (let ((m (vc-find-context buffer (caddr entry)))) - (if m - (set-window-start-mark! (car entry) m)))))) + (let ((window (car entry))) + (if (and (window-live? window) + (eq? buffer (window-buffer window))) + (begin + (let ((m (vc-find-context buffer (cadr entry)))) + (if m + (set-window-point! window m))) + (let ((m (vc-find-context buffer (caddr entry)))) + (if m + (set-window-start-mark! window m #t))))))) point-contexts))) (let ((mark (vc-find-context buffer mark-context))) (if mark -- 2.25.1