X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.main.git;a=blobdiff_plain;f=pctb%2Fshow-thing.tcl;fp=pctb%2Fshow-thing.tcl;h=1af2101f9077d7f24927f1b0ea25ba39312d778d;hp=980a8a48c88763ad41e8bc6ed7bfa1e33a1e8f12;hb=e684cf18e3fc8ce4024a6a258033d38f67f5aef0;hpb=8b3b006869bfdc6c2ddbf58d6709a73433abe2f9

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index 980a8a4..1af2101 100755
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -269,6 +269,7 @@ proc recursor//01 {z1} {
     }
     bind_key Return {
 	if {$cur_0 != $cur_1} {
+	    .d.csr.csr.e delete 0 end
 	    set cur_mode text
 	    recursor
 	}
@@ -298,7 +299,6 @@ proc recursor/text {} {
     bind_key Return {
 	set strq [.d.csr.csr.e get]
 	if {[regexp {^(?:[!-[]|[]-~]|\\\\|\\x[0-9a-f]{2})+} $strq]} {
-	    .d.csr.csr.e delete 0 end
 	    RETURN_RESULT DEFINE "$cur_0 $cur_1 $strq"
 	}
     }