X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=pctb%2Fdictionary-manager;h=374c4ef7a67b9595cc4edddc63eec02fdaeef8d7;hb=12b118fd416fb96309d9e4ef65336e08441594c1;hp=aab8b66d097703ffc7f1474d20fd9abc83576879;hpb=85fa433798311b75536b4196d8a64ab69050a9fb;p=ypp-sc-tools.db-test.git

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index aab8b66..374c4ef 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -738,8 +738,8 @@ proc recursor/text {} {
     focus .d.csr.csr.e
     bind .d.csr.csr.e <Key-Return> {
 	set strq [.d.csr.csr.e get]
-	if {[regexp -line {^(?:[!-[]|[]-~]|\\\\|\\x[0-9a-f]{2})+} $strq]} {
-	    RETURN_RESULT DEFINE "$cur_0 $cur_1 $strq"
+	if {[string length $strq]} {
+	    RETURN_RESULT DEFINE [list $cur_0 $cur_1 $strq]
 	}
     }
     bind .d.csr.csr.e <Key-Escape> {