From 0c83eb4cab2e19fd4c978f5b0e6108e1e780464c Mon Sep 17 00:00:00 2001
From: "Taylor R. Campbell" <net/mumble/campbell>
Date: Sun, 21 Jan 2007 01:10:18 +0000
Subject: [PATCH] Make DEBUG-SHOW-STANDARD-MARKS work again.  It doesn't show
 quite the same information as before, but at least it doesn't fail horribly
 now.

---
 v7/src/edwin/debuge.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/v7/src/edwin/debuge.scm b/v7/src/edwin/debuge.scm
index da35e10d0..db4c71432 100644
--- a/v7/src/edwin/debuge.scm
+++ b/v7/src/edwin/debuge.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: debuge.scm,v 1.60 2007/01/05 21:19:23 cph Exp $
+$Id: debuge.scm,v 1.61 2007/01/21 01:10:18 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -101,7 +101,8 @@ USA.
     (with-output-to-temporary-buffer "*standard-marks*" '()
       (lambda ()
 	(let ((buffer-frame (current-window)))
-	  (let ((window (car (instance-ref buffer-frame 'text-inferior)))
+	  (let ((window
+		 (vector-ref (instance-ref buffer-frame 'text-inferior) 1))
 		(buffer (window-buffer buffer-frame)))
 	    (let ((show-mark
 		   (lambda (name mark)
@@ -113,10 +114,10 @@ USA.
 		     (lambda (name)
 		       (show-mark name (instance-ref window name)))))
 		(show-instance 'point)
-		(show-instance 'start-line-mark)
+		(show-instance 'current-start-mark)
 		(show-instance 'start-mark)
-		(show-instance 'end-mark)
-		(show-instance 'end-line-mark))
+		(show-instance 'start-line-mark)
+		(show-instance 'current-end-mark))
 	      (let ((group (buffer-group buffer)))
 		(show-mark 'group-start-mark (group-start-mark group))
 		(show-mark 'group-end-mark (group-end-mark group))
-- 
2.25.1