From e684cf18e3fc8ce4024a6a258033d38f67f5aef0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 6 Jun 2009 00:18:57 +0100
Subject: [PATCH] always start with a blank entry

---
 pctb/show-thing.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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