From 2d4936689fb9f77e34412dd4169e025a6e364477 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 27 Jun 2009 00:08:20 +0100
Subject: [PATCH] Enable entry of strings with spaces in

---
 pctb/dictionary-manager | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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