From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 23 Jan 2017 05:41:58 +0000 (-0800)
Subject: Allow undo in debugger detail buffers.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~97
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7940e0bc370554a317f3648e6825fdfc3593d57d;p=mit-scheme.git

Allow undo in debugger detail buffers.
---

diff --git a/src/edwin/debug.scm b/src/edwin/debug.scm
index c4990585a..d7da78657 100644
--- a/src/edwin/debug.scm
+++ b/src/edwin/debug.scm
@@ -136,20 +136,16 @@ USA.
 	  (let ((prefix (browser/name browser)))
 	    (let loop ((index 1))
 	      (let ((name
-		     (string-append
-		      (if (1d-table/get (browser/properties browser)
-					'VISIBLE-SUB-BUFFERS?
-					#f)
-			  ""
-			  " ")
-		      prefix
-		      "-"
-		      (number->string index))))
+		     (string-append " "
+				    prefix
+				    "-"
+				    (number->string index))))
 		(if (find-buffer name)
 		    (loop (+ index 1))
 		    name)))))))
     (if initializer
 	(initializer buffer))
+    (enable-group-undo! (buffer-group buffer))
     (add-browser-buffer! browser buffer)
     buffer))
 
diff --git a/src/edwin/undo.scm b/src/edwin/undo.scm
index ee5881f28..f0d711267 100644
--- a/src/edwin/undo.scm
+++ b/src/edwin/undo.scm
@@ -29,7 +29,8 @@ USA.
 (declare (usual-integrations))
 
 (define (enable-group-undo! group)
-  (set-group-undo-data! group '()))
+  (if (eq? #t (group-undo-data group))
+      (set-group-undo-data! group '())))
 
 (define (disable-group-undo! group)
   (set-group-undo-data! group #t))