Allow undo in debugger detail buffers.

diff --git a/src/edwin/debug.scm b/src/edwin/debug.scm
index c4990585a9b7719fe301c3b7b5dda3f90794bb76..d7da786578f417f99a425952bb1895851ca87303 100644 (file)
--- 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 ee5881f28952e97b112fa2609e764e2d1f94ea14..f0d7112672ccb886caab433fbd76cfc215529280 100644 (file)
--- a/src/edwin/undo.scm
+++ b/src/edwin/undo.scm
@@ -29,7 +29,8 @@ USA.
 (declare (usual-integrations))
 \f
 (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))