chiark / gitweb /
Enable entry of strings with spaces in
[ypp-sc-tools.db-test.git] / pctb / dictionary-manager
index aab8b66..374c4ef 100755 (executable)
@@ -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> {