From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Fri, 5 Jun 2009 23:18:57 +0000 (+0100)
Subject: always start with a blank entry
X-Git-Tag: 1.9.2~179
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=e684cf18e3fc8ce4024a6a258033d38f67f5aef0;hp=8b3b006869bfdc6c2ddbf58d6709a73433abe2f9

always start with a blank entry
---

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"
 	}
     }