chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.web-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
charset query D L U W go straight to entry
[ypp-sc-tools.web-live.git]
/
pctb
/
dictionary-manager
diff --git
a/pctb/dictionary-manager
b/pctb/dictionary-manager
index e6c27621b35ebdd1ca143f9bcf25d5857e8b8b46..53174ed25cd57e7167b17cfad75100f54d4ed64f 100755
(executable)
--- 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]
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] {}
"
} 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 " "] \
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}]
bind_key space { othercursor }
bind_leftright_q cur_$z1 0 [expr {$cols-1}]