From 057a860424fc2ebe1fdfae422b67cdfcc1da8cd4 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ian@liberator.relativity.greenend.org.uk>
Date: Sat, 4 Jul 2009 20:33:37 +0100
Subject: [PATCH] charset query  D L U W  go straight to entry

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

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}]
-- 
2.30.2