From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Fri, 26 Jun 2009 23:08:20 +0000 (+0100)
Subject: Enable entry of strings with spaces in
X-Git-Tag: 1.9.2~90^2~20
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=2d4936689fb9f77e34412dd4169e025a6e364477;hp=03f34f1d8cb78d9a4541d51a511020ea364e5679

Enable entry of strings with spaces in
---

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> {