From 7940e0bc370554a317f3648e6825fdfc3593d57d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 22 Jan 2017 21:41:58 -0800 Subject: [PATCH] Allow undo in debugger detail buffers. --- src/edwin/debug.scm | 14 +++++--------- src/edwin/undo.scm | 3 ++- 2 files changed, 7 insertions(+), 10 deletions(-) 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)) -- 2.25.1