From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Jul 2009 19:33:37 +0000 (+0100)
Subject: charset query  D L U W  go straight to entry
X-Git-Tag: 1.9.2~16
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-test.git;a=commitdiff_plain;h=057a860424fc2ebe1fdfae422b67cdfcc1da8cd4

charset query  D L U W  go straight to entry
---

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index e6c2762..53174ed 100755
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -772,7 +772,7 @@ proc recursor//01 {z1} {
 	if {[lsearch -exact $okctxts $ctx] >= 0} {
 	    bind_key [string tolower $key] "
 		[list set new_context $ctx]
-                recursor
+	        char_start_define_text
             "
 	} else {
 	    bind_key [string tolower $key] {}
@@ -780,7 +780,7 @@ proc recursor//01 {z1} {
 	lappend context_help $key
     }
     set context_help [list [join $context_help " "] \
-			  {Set match context for new glyph.}]
+      {Set match context for new glyph, confirm location, and start entry.}]
 
     bind_key space { othercursor }
     bind_leftright_q cur_$z1 0 [expr {$cols-1}]