+ set r [list $ncontexts $c0 $c1]
+ debug "CDGI $r"
+ return $r
+}
+
+proc update_database/DEFINE {c0 c1 strq} {
+ global new_context
+ manyset [char_get_definition_info $c0 $c1] ncontexts c0 c1
+ debug "DEFINE $c0 $c1 $new_context {$ncontexts}"
+ if {[llength $ncontexts]==1} {
+ set c [lindex $ncontexts 0]
+ } elseif {[lsearch -exact $new_context $ncontexts]>=0} {
+ set c $new_context
+ } else {
+ puts stderr "Selected context is not one of the many possibilities."
+ return;