Do not have a default dictionary context when adding entries; it's error prone

diff --git a/pctb/README.charset b/pctb/README.charset
index cd9d1c9fa7c55db7a612f2fd82f14469adb90144..0d7f1623d00dbb735e43a56e4e5a293008cb4e4f 100644 (file)
--- a/pctb/README.charset
+++ b/pctb/README.charset
@@ -139,15 +139,17 @@ machinery works, and the possible mistakes you can make, before
 answering the program.  So *Please read this documentation*, which
 explains the meaning of the entries you make.
 
-Be sure to check or specify the dictionary to which the new glyph
-should be added.  Normally the default will be the Word dictionary
-which is right if the match failure is a new word starting with l or I
-(see above).  You will need to change this to the Upper or Lower
-dictionary for new ligatures.  You should not need to add new Digits.
-
-Also, the character set updates you make will by default be submitted
-to my server so that they can be checked by me and shared with other
-users.  See README.privacy.
+You must specify the dictionary to which the new glyph should be
+added, by selecting the appropriate radiobutton or by pressing one of
+U D L W for Upper, Digit, Lower, Word.  Word is only correct
+right if the match failure is a new word starting with l or I (see
+above).  Upper or Lower is correct for single letters and ligatures.
+for new ligatures.  Use Upper for punctuation and Digit for `>' and
+digits.
+
+The character set updates you make will by default be submitted to my
+server so that they can be checked by me and shared with other users.
+See README.privacy.
 
 If you need help please ask me (ijackson@chiark.greenend.org.uk, or
 Aristarchus on Midnight in game if I'm on line, or ask any pirate of

diff --git a/pctb/dictionary-manager b/pctb/dictionary-manager
index 833e7270de29506b1a518c8b2e432191047d5bee..365aecb01fb1184fc865faa979ae58bba551ff81 100755 (executable)
--- a/pctb/dictionary-manager
+++ b/pctb/dictionary-manager
@@ -285,7 +285,7 @@ proc required/char {} {
     label .selctx.title -text \
        {Select match context for altering dictionary:}
     pack .selctx.title -side left
-    set new_context [lindex $unk_contexts 0]
+    set new_context {}
 
     set ci 0; foreach ctx [lsort [array names all_contexts]] {
        set all_contexts($ctx) $ci