*** empty log message ***

[m17n/m17n-lib.git] / src / input.c
diff --git a/src/input.c b/src/input.c

index 30a9ad8..3cc1086 100644 (file)
--- a/src/input.c
+++ b/src/input.c
@@ -1640,7 +1640,7 @@ check_description (MPlist *plist)
           {
             M17N_OBJECT_UNREF (mt);
             mt = mtext__from_data (translated, strlen (translated),
           {
             M17N_OBJECT_UNREF (mt);
             mt = mtext__from_data (translated, strlen (translated),
-                                  MTEXT_FORMAT_UTF_8, 0);
+                                  MTEXT_FORMAT_UTF_8, 1);
           }
        }
  #endif
           }
        }
  #endif
@@ -1778,15 +1778,18 @@ config_command (MPlist *plist, MPlist *global_cmds, MPlist *custom_cmds,
        status = Mconfigured;
        config = MPLIST_NEXT (MPLIST_PLIST (config));
        if (! MPLIST_TAIL_P (config))
        status = Mconfigured;
        config = MPLIST_NEXT (MPLIST_PLIST (config));
        if (! MPLIST_TAIL_P (config))
-       keyseq = MPLIST_NEXT (config);
+       keyseq = config;
      }
    else if (custom_cmds && (custom = mplist__assq (custom_cmds, name)))
      {
      }
    else if (custom_cmds && (custom = mplist__assq (custom_cmds, name)))
      {
-      custom = MPLIST_NEXT (MPLIST_PLIST (custom));
-      if (! MPLIST_TAIL_P (custom))
+      MPlist *this_keyseq = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (custom)));
+
+      if (MPLIST_TAIL_P (this_keyseq))
+       mplist__pop_unref (custom);
+      else
         {
           status = Mcustomized;
         {
           status = Mcustomized;
-         keyseq = MPLIST_NEXT (custom);
+         keyseq = this_keyseq;
         }
      }
    
         }
      }
    
@@ -2068,17 +2071,20 @@ config_variable (MPlist *plist, MPlist *global_vars, MPlist *custom_vars,
        config = MPLIST_NEXT (MPLIST_PLIST (config));
        if (! MPLIST_TAIL_P (config))
         {
        config = MPLIST_NEXT (MPLIST_PLIST (config));
        if (! MPLIST_TAIL_P (config))
         {
-         value = MPLIST_NEXT (config);
+         value = config;
           if (MFAILP (check_variable_value (value, global ? global : plist)))
             value = NULL;
         }
      }
    else if (custom_vars && (custom = mplist__assq (custom_vars, name)))
      {
           if (MFAILP (check_variable_value (value, global ? global : plist)))
             value = NULL;
         }
      }
    else if (custom_vars && (custom = mplist__assq (custom_vars, name)))
      {
-      custom = MPLIST_NEXT (MPLIST_PLIST (custom));
-      if (! MPLIST_TAIL_P (custom))
+      MPlist *this_value = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (custom)));
+
+      if (MPLIST_TAIL_P (this_value))
+       mplist__pop_unref (custom);
+      else
         {
         {
-         value = MPLIST_NEXT (custom);
+         value = this_value;
           if (MFAILP (check_variable_value (value, global ? global : plist)))
             value = NULL;
           status = Mcustomized;
           if (MFAILP (check_variable_value (value, global ? global : plist)))
             value = NULL;
           status = Mcustomized;
@@ -4781,7 +4787,7 @@ minput_get_description (MSymbol language, MSymbol name)
  
      @c STATUS is a symbol representing how the key assignment is decided.
      The value is #Mnil (the default key assignment), #Mcustomized (the
  
      @c STATUS is a symbol representing how the key assignment is decided.
      The value is #Mnil (the default key assignment), #Mcustomized (the
-    key assignment is customized by per-user configuration file), or
+    key assignment is customized by per-user customization file), or
      #Mconfigured (the key assignment is set by the call of
      minput_config_command ()).  For a local command only, it may also
      be #Minherited (the key assignment is inherited from the
      #Mconfigured (the key assignment is set by the call of
      minput_config_command ()).  For a local command only, it may also
      be #Minherited (the key assignment is inherited from the
@@ -4833,12 +4839,13 @@ minput_get_description (MSymbol language, MSymbol name)
      @c DESCRIPTION ¤Ï¥³¥Þ¥ó¥É¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¤«¡¢ÀâÌÀ¤¬Ìµ¤¤¾ì¹ç¤Ë
      ¤Ï #Mnil ¤Ç¤¢¤ë¡£
  
      @c DESCRIPTION ¤Ï¥³¥Þ¥ó¥É¤òÀâÌÀ¤¹¤ë M-text ¤Ç¤¢¤ë¤«¡¢ÀâÌÀ¤¬Ìµ¤¤¾ì¹ç¤Ë
      ¤Ï #Mnil ¤Ç¤¢¤ë¡£
  
-    @c STATUS ¤Ï¥¡¼³ä¤êÅö¤Æ¤¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢
-    ¤ê¡¢¤½¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤Î³ä¤êÅö¤Æ¡Ë, #Mcustomized ¡Ê¥æ¡¼¥¶
-    Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿³ä¤êÅö¤Æ¡Ë, #Mconfigured
-    ¡Êminput_config_command ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ë³ä¤êÅö¤Æ¡Ë¤Î
-    ¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ë¥³¥Þ¥ó¥É¤Î¾ì¹ç¤Ë¤Ï¡¢#Minherited ¡ÊÂÐ±þ¤¹¤ë
-    ¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É¤«¤é¤Î·Ñ¾µ¤Ë¤è¤ë³ä¤êÅö¤Æ¡Ë¤Ç¤â¤è¤¤¡£
+    @c STATUS ¤Ï¥¡¼³ä¤êÅö¤Æ¤¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë
+    ¤Ç¤¢¤ê¡¢¤½¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤Î³ä¤êÅö¤Æ¡Ë, #Mcustomized ¡Ê¥æ¡¼
+    ¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿³ä¤êÅö¤Æ¡Ë,
+    #Mconfigured ¡Êminput_config_command ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ë
+    ³ä¤êÅö¤Æ¡Ë¤Î¤¤¤º¤ì¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ë¥³¥Þ¥ó¥É¤Î¾ì¹ç¤Ë¤Ï¡¢
+    #Minherited ¡ÊÂÐ±þ¤¹¤ë¥°¥í¡¼¥Ð¥ë¥³¥Þ¥ó¥É¤«¤é¤Î·Ñ¾µ¤Ë¤è¤ë³ä¤êÅö¤Æ¡Ë
+    ¤Ç¤â¤è¤¤¡£
  
      @c KEYSEQ ¤Ï£±¤Ä°Ê¾å¤Î¥·¥ó¥Ü¥ë¤«¤é¤Ê¤ë plist ¤Ç¤¢¤ê¡¢³Æ¥·¥ó¥Ü¥ë¤Ï¥³¥Þ
      ¥ó¥É¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤òÉ½¤¹¡£KEYSEQ ¤¬Ìµ¤¤¾ì¹ç¤Ï¡¢
  
      @c KEYSEQ ¤Ï£±¤Ä°Ê¾å¤Î¥·¥ó¥Ü¥ë¤«¤é¤Ê¤ë plist ¤Ç¤¢¤ê¡¢³Æ¥·¥ó¥Ü¥ë¤Ï¥³¥Þ
      ¥ó¥É¤Ë³ä¤êÅö¤Æ¤é¤ì¤Æ¤¤¤ë¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤òÉ½¤¹¡£KEYSEQ ¤¬Ìµ¤¤¾ì¹ç¤Ï¡¢
@@ -4905,13 +4912,16 @@ minput_get_command (MSymbol language, MSymbol name, MSymbol command)
      If $KEYSEQLIST is a non-empty plist, it must be a list of key
      sequences, and each key sequence must be a plist of symbols.
  
      If $KEYSEQLIST is a non-empty plist, it must be a list of key
      sequences, and each key sequence must be a plist of symbols.
  
-    If $KEYSEQLIST is an empty plist, the default key sequences of the
-    command for the input method is assigned to $COMMAND.
+    If $KEYSEQLIST is an empty plist, any configuration and
+    customization of the command are cancelled, and default key
+    sequences become effective.
+
+    If $KEYSEQLIST is NULL, the configuration of the command is
+    canceled, and the original key sequences (what saved in per-user
+    customization file, or the default one) become effective.
  
  
-    If $KEYSEQLIST is NULL, the configuration of the command for the
-    input method is canceled, and the default key sequences become
-    effective.  In such case, if $COMMAND is #Mnil, configurations for
-    all commands of the input method are canceled.
+    In the latter two cases, $COMMAND can be #Mnil to make all the
+    commands of the input method the target of the operation.
  
      If $NAME is #Mnil, this function configures the key assignment of a
      global command, not that of a specific input method.
  
      If $NAME is #Mnil, this function configures the key assignment of a
      global command, not that of a specific input method.
@@ -4919,11 +4929,10 @@ minput_get_command (MSymbol language, MSymbol name, MSymbol command)
      The configuration takes effect for input methods opened or
      re-opened later in the current session.  In order to make the
      configuration take effect for the future session, it must be saved
      The configuration takes effect for input methods opened or
      re-opened later in the current session.  In order to make the
      configuration take effect for the future session, it must be saved
-    in a per-user configuration file by the function
+    in a per-user customization file by the function
      minput_save_config ().
  
      @return
      minput_save_config ().
  
      @return
-
      If the operation was successful, this function returns 0,
      otherwise returns -1.  The operation fails in these cases:
      <ul>
      If the operation was successful, this function returns 0,
      otherwise returns -1.  The operation fails in these cases:
      <ul>
@@ -4945,20 +4954,23 @@ minput_get_command (MSymbol language, MSymbol name, MSymbol command)
      $KEYSEQLIST ¤¬¶õ¥ê¥¹¥È¤Ç¤Ê¤±¤ì¤Ð¡¢¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Î¥ê¥¹¥È¤Ç¤¢¤ê¡¢
      ³Æ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Ï¥·¥ó¥Ü¥ë¤Î plist ¤Ç¤¢¤ë¡£
  
      $KEYSEQLIST ¤¬¶õ¥ê¥¹¥È¤Ç¤Ê¤±¤ì¤Ð¡¢¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Î¥ê¥¹¥È¤Ç¤¢¤ê¡¢
      ³Æ¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤Ï¥·¥ó¥Ü¥ë¤Î plist ¤Ç¤¢¤ë¡£
  
-    $KEYSEQLIST ¤¬¶õ¤Î plist ¤Ê¤é¤Ð¡¢¥³¥Þ¥ó¥É¤Ï»ÈÍÑ¤Ç¤¤Ê¤¯¤Ê¤ë¡£
+    $KEYSEQLIST ¤¬¶õ¤Î plist ¤Ê¤é¤Ð¡¢¤½¤Î¥³¥Þ¥ó¥É¤ÎÀßÄê¤ä¥«¥¹¥¿¥Þ¥¤¥º¤Ï
+    ¤¹¤Ù¤Æ¥¥ã¥ó¥»¥ë¤µ¤ì¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬Í¸ú¤Ë¤Ê¤ë¡£
+
+    $KEYSEQLIST ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢¤½¤Î¥³¥Þ¥ó¥É¤ÎÀßÄê¤Ï¥¥ã¥ó¥»¥ë¤µ¤ì¡¢
+    ¸µ¤Î¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¡Ê¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤µ¤ì¤Æ¤¤
+    ¤ë¤â¤Î¡¢¤¢¤ë¤¤¤Ï¥Ç¥Õ¥©¥ë¥È¤Î¤â¤Î¡Ë¤¬Í¸ú¤Ë¤Ê¤ë¡£
  
  
-    $KEYSEQLIST ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢»ØÄê¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Î¥³¥Þ¥ó¥É¤ÎÀßÄê¤Ï
-    ¥¥ã¥ó¥»¥ë¤µ¤ì¡¢¥Ç¥Õ¥©¥ë¥È¤Î¥¡¼¥·¡¼¥¯¥¨¥ó¥¹¤¬Í¸ú¤Ë¤Ê¤ë¡£¤³¤Î¾ì¹ç¡¢
-    $COMMAND ¤¬ #Mnil ¤Ê¤é¤Ð»ØÄê¤ÎÆþÎÏ¥á¥½¥Ã¥É¤ÎÁ´¤Æ¤Î¥³¥Þ¥ó¥É¤ÎÀßÄê¤¬
-    ¥¥ã¥ó¥»¥ë¤µ¤ì¤ë¡£
+    ¸å¤Î¤Õ¤¿¤Ä¤Î¾ì¹ç¤Ë¤Ï¡¢$COMMAND ¤Ï #Mnil ¤ò¤È¤ë¤³¤È¤¬¤Ç¤¡¢»ØÄê¤ÎÆþ
+    ÎÏ¥á¥½¥Ã¥É¤ÎÁ´¤Æ¤Î¥³¥Þ¥ó¥ÉÀßÄê¤Î¥¥ã¥ó¥»¥ë¤ò°ÕÌ£¤¹¤ë¡£
  
      $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
      ¥ë¤Ê¥³¥Þ¥ó¥É¤Î¥¡¼³ä¤êÅö¤Æ¤òÀßÄê¤¹¤ë¡£
  
      ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎÏ¥á¥½¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
      ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤ÇÍ¸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤âÍ¸ú¤Ë¤¹
  
      $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
      ¥ë¤Ê¥³¥Þ¥ó¥É¤Î¥¡¼³ä¤êÅö¤Æ¤òÀßÄê¤¹¤ë¡£
  
      ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎÏ¥á¥½¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
      ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤ÇÍ¸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤âÍ¸ú¤Ë¤¹
-    ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍÑ¤¤¤Æ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤
-    ¥ë¤ËÊÝÂ¸¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+    ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍÑ¤¤¤Æ¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤
+    ¥º¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
  
      @return
  
  
      @return
  
@@ -5097,11 +5109,14 @@ minput_config_command (MSymbol language, MSymbol name, MSymbol command,
             }
           else
             {
             }
           else
             {
-             plist = MPLIST_PLIST (plist); /* (NAME nil KEYSEQ ...) */
-             plist = MPLIST_NEXT (plist);
-             if (MPLIST_TAIL_P (plist))
-               return 0;
-             mplist_set (plist, Mnil, NULL);
+             if (no_custom)
+               mplist__pop_unref (plist);
+             else
+               {
+                 plist = MPLIST_PLIST (plist); /* (NAME nil KEYSEQ ...) */
+                 plist = MPLIST_NEXT (plist);
+                 mplist_set (plist, Mnil, NULL);
+               }
             }
         }
        else
             }
         }
        else
@@ -5141,7 +5156,7 @@ minput_config_command (MSymbol language, MSymbol name, MSymbol command,
      @brief Get information about input method variable(s).
  
      The minput_get_variable () function returns information about
      @brief Get information about input method variable(s).
  
      The minput_get_variable () function returns information about
-    the variable $VARIABLE of the input method specified by $LANGUAGE and $NAME.
+    variable $VARIABLE of the input method specified by $LANGUAGE and $NAME.
      An input method variable controls behavior of an input method.
  
      There are two kinds of variables, global and local.  A global
      An input method variable controls behavior of an input method.
  
      There are two kinds of variables, global and local.  A global
@@ -5170,7 +5185,7 @@ minput_config_command (MSymbol language, MSymbol name, MSymbol command,
  
      @c STATUS is a symbol representing how the value is decided.  The
      value is #Mnil (the default value), #Mcustomized (the value is
  
      @c STATUS is a symbol representing how the value is decided.  The
      value is #Mnil (the default value), #Mcustomized (the value is
-    customized by per-user configuration file), or #Mconfigured (the
+    customized by per-user customization file), or #Mconfigured (the
      value is set by the call of minput_config_variable ()).  For a
      local variable only, it may also be #Minherited (the value is
      inherited from the corresponding global variable).
      value is set by the call of minput_config_variable ()).  For a
      local variable only, it may also be #Minherited (the value is
      inherited from the corresponding global variable).
@@ -5229,8 +5244,8 @@ minput_config_command (MSymbol language, MSymbol name, MSymbol command,
      #Mnil ¤Ç¤¢¤ë¡£
  
      @c STATUS ¤ÏÃÍ¤¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
      #Mnil ¤Ç¤¢¤ë¡£
  
      @c STATUS ¤ÏÃÍ¤¬¤É¤Î¤è¤¦¤ËÄê¤á¤é¤ì¤ë¤«¤ò¤¢¤é¤ï¤¹¥·¥ó¥Ü¥ë¤Ç¤¢¤ê¡¢
-    @c STATUS ¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤ÎÃÍ¡Ë, #Mcustomized ¡Ê¥æ¡¼¥¶Ëè¤ÎÀß
-    Äê¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿ÃÍ¡Ë, #Mconfigured
+    @c STATUS ¤ÎÃÍ¤Ï #Mnil ¡Ê¥Ç¥Õ¥©¥ë¥È¤ÎÃÍ¡Ë, #Mcustomized ¡Ê¥æ¡¼¥¶Ëè¤Î
+    ¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¥«¥¹¥¿¥Þ¥¤¥º¤µ¤ì¤¿ÃÍ¡Ë, #Mconfigured
      ¡Êminput_config_variable ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ëÃÍ¡Ë¤Î¤¤¤º¤ì
      ¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ëÊÑ¿ô¤Î¾ì¹ç¤Ë¤Ï¡¢#Minherited ¡ÊÂÐ±þ¤¹¤ë¥°¥í¡¼¥Ð¥ë
      ÊÑ¿ô¤«¤é·Ñ¾µ¤·¤¿ÃÍ¡Ë¤Ç¤â¤è¤¤¡£
      ¡Êminput_config_variable ()¤ò¸Æ¤Ö¤³¤È¤Ë¤è¤Ã¤ÆÀßÄê¤µ¤ì¤ëÃÍ¡Ë¤Î¤¤¤º¤ì
      ¤«¤Ç¤¢¤ë¡£¥í¡¼¥«¥ëÊÑ¿ô¤Î¾ì¹ç¤Ë¤Ï¡¢#Minherited ¡ÊÂÐ±þ¤¹¤ë¥°¥í¡¼¥Ð¥ë
      ÊÑ¿ô¤«¤é·Ñ¾µ¤·¤¿ÃÍ¡Ë¤Ç¤â¤è¤¤¡£
@@ -5283,28 +5298,28 @@ minput_get_variable (MSymbol language, MSymbol name, MSymbol variable)
      variable $VARIABLE of the input method specified by $LANGUAGE and
      $NAME.
  
      variable $VARIABLE of the input method specified by $LANGUAGE and
      $NAME.
  
-    If $VALUE is not NULL, it must be a plist of one element whose key
-    is #Minteger, #Msymbol, or #Mtext, or an empty plist.  In the
-    former case, the value must be of the corresponding type, and it
-    is assinged to $VARIABLE.  In the latter case, the default value
-    for the input method is assigned to $VARIABLE.
+    If $VALUE is a non-empty plist, it must be a plist of one element
+    whose key is #Minteger, #Msymbol, or #Mtext, and the value is of
+    the corresponding type.  That value is assigned to the variable.
+
+    If $VALUE is an empty plist, any configuration and customization
+    of the variable are canceled, and the default value is assigned to
+    the variable.
  
  
-    If $VALUE is NULL, a configuration for the variable for the input
-    method is canceled, and the variable is initialized to the
-    original value (it may be what saved in per-user configuration
-    file, or the default value of the input method).
+    If $VALUE is NULL, the configuration of the variable is canceled,
+    and the original value (what saved in per-user customization file,
+    or the default value) is assigned to the variable.
  
  
-    If $VALUE is an empty plist or NULL, $VARIABLE can be #Mnil.  In
-    that case, it is applied to all the variables of the input method
-    are canceled.
+    In the latter two cases, $VARIABLE can be #Mnil to make all the
+    variables of the input method the target of the operation.
  
  
-    If $NAME is #Mnil, this function configure the value of global
+    If $NAME is #Mnil, this function configures the value of global
      variable, not that of a specific input method.
  
      The configuration takes effect for input methods opened or
      re-opened later in the current session.  To make the configuration
      take effect for the future session, it must be saved in a per-user
      variable, not that of a specific input method.
  
      The configuration takes effect for input methods opened or
      re-opened later in the current session.  To make the configuration
      take effect for the future session, it must be saved in a per-user
-    configuration file by the function minput_save_config ().
+    customization file by the function minput_save_config ().
  
      @return
  
  
      @return
  
@@ -5325,20 +5340,26 @@ minput_get_variable (MSymbol language, MSymbol name, MSymbol variable)
      ´Ø¿ô minput_config_variable () ¤ÏÃÍ $VALUE ¤ò¡¢$LANGUAGE ¤È $NAME
      ¤Ë¤è¤Ã¤Æ»ØÄê¤µ¤ì¤ëÆþÎÏ¥á¥½¥Ã¥É¤ÎÊÑ¿ô $VARIABLE ¤Ë³ä¤êÅö¤Æ¤ë¡£
  
      ´Ø¿ô minput_config_variable () ¤ÏÃÍ $VALUE ¤ò¡¢$LANGUAGE ¤È $NAME
      ¤Ë¤è¤Ã¤Æ»ØÄê¤µ¤ì¤ëÆþÎÏ¥á¥½¥Ã¥É¤ÎÊÑ¿ô $VARIABLE ¤Ë³ä¤êÅö¤Æ¤ë¡£
  
-    $VALUE ¤¬ NULL¤Ç¤Ê¤±¤ì¤Ð¡¢£±Í×ÁÇ¤Î plist ¤Ç¤¢¤ê¡¢¤½¤Î¥¡¼¤Ï
+    $VALUE ¤¬ ¶õ¥ê¥¹¥È¤Ç¤Ê¤±¤ì¤Ð¡¢£±Í×ÁÇ¤Î plist ¤Ç¤¢¤ê¡¢¤½¤Î¥¡¼¤Ï
      #Minteger, #Msymbol, #Mtext ¤Î¤¤¤º¤ì¤«¡¢ÃÍ¤ÏÂÐ±þ¤¹¤ë·¿¤Î¤â¤Î¤Ç¤¢¤ë¡£
      #Minteger, #Msymbol, #Mtext ¤Î¤¤¤º¤ì¤«¡¢ÃÍ¤ÏÂÐ±þ¤¹¤ë·¿¤Î¤â¤Î¤Ç¤¢¤ë¡£
+    ¤³¤ÎÃÍ¤¬ÊÑ¿ô $VARIABLE ¤Ë³ä¤êÅö¤Æ¤é¤ì¤ë¡£
  
  
-    $VALUE ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢»ØÄê¤ÎÆþÎÏ¥á¥½¥Ã¥É¤ÎÊÑ¿ô¤ÎÀßÄê¤Ï¥¥ã¥ó¥»¥ë
-    ¤µ¤ì¡¢ÊÑ¿ô¤Ï¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ë½é´ü²½¤µ¤ì¤ë¡£¤³¤Î¾ì¹ç¡¢$VARIABLE ¤¬
-    #Mnil ¤Ê¤é¤Ð»ØÄê¤ÎÆþÎÏ¥á¥½¥Ã¥É¤ÎÁ´¤Æ¤ÎÊÑ¿ô¤ÎÀßÄê¤¬¥¥ã¥ó¥»¥ë¤µ¤ì¤ë¡£
+    $VALUE ¤¬ ¶õ¥ê¥¹¥È¤Ç¤¢¤ì¤Ð¡¢ÊÑ¿ô¤ÎÀßÄê¤È¥«¥¹¥¿¥Þ¥¤¥º¤¬¥¥ã¥ó¥»¥ë¤µ
+    ¤ì¡¢¥Ç¥Õ¥©¥ë¥ÈÃÍ¤¬ÊÑ¿ô $VARIABLE ¤Ë³ä¤êÅö¤Æ¤é¤ì¤ë¡£
+
+    $VALUE ¤¬ NULL ¤Ç¤¢¤ì¤Ð¡¢ÊÑ¿ô¤ÎÀßÄê¤Ï¥¥ã¥ó¥»¥ë¤µ¤ì¡¢¸µ¤ÎÃÍ¡Ê¥æ¡¼¥¶
+    Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ëÃæ¤ÎÃÍ¡¢¤Þ¤¿¤Ï¥Ç¥Õ¥©¥ë¥È¤ÎÃÍ¡Ë¤¬³ä¤êÅö¤Æ¤é¤ì¤ë¡£
+
+    ¸å¤Î¤Õ¤¿¤Ä¤Î¾ì¹ç¤Ë¤Ï¡¢$VARIABLE ¤Ï #Mnil ¤ò¤È¤ë¤³¤È¤¬¤Ç¤¡¢»ØÄê¤µ¤ì
+    ¤¿ÆþÎÏ¥á¥½¥Ã¥É¤ÎÁ´¤Æ¤ÎÊÑ¿ôÀßÄê¤Î¥¥ã¥ó¥»¥ë¤ò°ÕÌ£¤¹¤ë¡£
  
      $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
      ¥ë¤ÊÊÑ¿ô¤ÎÃÍ¤òÀßÄê¤¹¤ë¡£
  
      ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎÏ¥á¥½¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
      ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤ÇÍ¸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤âÍ¸ú¤Ë¤¹
  
      $NAME ¤¬ #Mnil ¤Ê¤é¤Ð¡¢¤³¤Î´Ø¿ô¤Ï¸Ä¡¹¤ÎÆþÎÏ¥á¥½¥Ã¥É¤Ç¤Ï¤Ê¤¯¥°¥í¡¼¥Ð
      ¥ë¤ÊÊÑ¿ô¤ÎÃÍ¤òÀßÄê¤¹¤ë¡£
  
      ¤³¤ì¤é¤ÎÀßÄê¤Ï¡¢¸½¹Ô¤Î¥»¥Ã¥·¥ç¥óÃæ¤ÇÆþÎÏ¥á¥½¥Ã¥É¤¬¥ª¡¼¥×¥ó¡Ê¤Þ¤¿¤Ï
      ºÆ¥ª¡¼¥×¥ó¡Ë¤µ¤ì¤¿»þÅÀ¤ÇÍ¸ú¤Ë¤Ê¤ë¡£¾Íè¤Î¥»¥Ã¥·¥ç¥óÃæ¤Ç¤âÍ¸ú¤Ë¤¹
-    ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍÑ¤¤¤Æ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤
-    ¥ë¤ËÊÝÂ¸¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
+    ¤ë¤¿¤á¤Ë¤Ï¡¢´Ø¿ô minput_save_config () ¤òÍÑ¤¤¤Æ¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤
+    ¥º¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤·¤Ê¤¯¤Æ¤Ï¤Ê¤é¤Ê¤¤¡£
  
      @return
  
  
      @return
  
@@ -5450,11 +5471,14 @@ minput_config_variable (MSymbol language, MSymbol name, MSymbol variable,
             }
           else
             {
             }
           else
             {
-             plist = MPLIST_PLIST (plist); /* (NAME nil VALUE) */
-             plist = MPLIST_NEXT (plist);      /* ([nil VALUE]) */
-             if (! MPLIST_TAIL_P (plist))
-               return 0;
-             mplist_set (plist, Mnil ,NULL);
+             if (no_custom)
+               mplist__pop_unref (plist);
+             else
+               {
+                 plist = MPLIST_PLIST (plist); /* (NAME nil VALUE) */
+                 plist = MPLIST_NEXT (plist);  /* ([nil VALUE]) */
+                 mplist_set (plist, Mnil ,NULL);
+               }
             }
         }
        else
             }
         }
        else
@@ -5484,10 +5508,10 @@ minput_config_variable (MSymbol language, MSymbol name, MSymbol variable,
  /*=*/
  
  /***en
  /*=*/
  
  /***en
-    @brief Get the name of per-user configuration file.
+    @brief Get the name of per-user customization file.
      
      The minput_config_file () function returns the absolute path name
      
      The minput_config_file () function returns the absolute path name
-    of per-user configuration file into which minput_save_config ()
+    of per-user customization file into which minput_save_config ()
      save configurations.  It is usually @c "config.mic" under the
      directory @c ".m17n.d" of user's home directory.  It is not assured
      that the file of the returned name exists nor is
      save configurations.  It is usually @c "config.mic" under the
      directory @c ".m17n.d" of user's home directory.  It is not assured
      that the file of the returned name exists nor is
@@ -5504,10 +5528,10 @@ minput_config_variable (MSymbol language, MSymbol name, MSymbol variable,
      minput_save_config ()
  */
  /***ja
      minput_save_config ()
  */
  /***ja
-    @brief ¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤ÎÌ¾Á°¤òÆÀ¤ë.
+    @brief ¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤ÎÌ¾Á°¤òÆÀ¤ë.
      
      ´Ø¿ô minput_config_file () ¤Ï¡¢´Ø¿ô minput_save_config () ¤¬ÀßÄê¤ò
      
      ´Ø¿ô minput_config_file () ¤Ï¡¢´Ø¿ô minput_save_config () ¤¬ÀßÄê¤ò
-    ÊÝÂ¸¤¹¤ë¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤Ø¤ÎÀäÂÐ¥Ñ¥¹Ì¾¤òÊÖ¤¹¡£ÄÌ¾ï¤Ï¡¢¥æ¡¼¥¶
+    ÊÝÂ¸¤¹¤ë¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤Ø¤ÎÀäÂÐ¥Ñ¥¹Ì¾¤òÊÖ¤¹¡£ÄÌ¾ï¤Ï¡¢¥æ¡¼¥¶
      ¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î²¼¤Î¥Ç¥£¥ì¥¯¥È¥ê @c ".m17n.d" ¤Ë¤¢¤ë@c
      "config.mic" ¤È¤Ê¤ë¡£ÊÖ¤µ¤ì¤¿Ì¾Á°¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¡¢ÆÉ¤ß½ñ¤¤Ç
      ¤¤ë¤«¤ÏÊÝ¾Ú¤µ¤ì¤Ê¤¤¡£´Ø¿ôminput_save_config () ¤¬¼ºÇÔ¤·¤Æ -1 ¤òÊÖ
      ¤Î¥Û¡¼¥à¥Ç¥£¥ì¥¯¥È¥ê¤Î²¼¤Î¥Ç¥£¥ì¥¯¥È¥ê @c ".m17n.d" ¤Ë¤¢¤ë@c
      "config.mic" ¤È¤Ê¤ë¡£ÊÖ¤µ¤ì¤¿Ì¾Á°¤Î¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤¹¤ë¤«¡¢ÆÉ¤ß½ñ¤¤Ç
      ¤¤ë¤«¤ÏÊÝ¾Ú¤µ¤ì¤Ê¤¤¡£´Ø¿ôminput_save_config () ¤¬¼ºÇÔ¤·¤Æ -1 ¤òÊÖ
@@ -5535,16 +5559,16 @@ minput_config_file ()
  /*=*/
  
  /***en
  /*=*/
  
  /***en
-    @brief Save configurations in per-user configuration file.
+    @brief Save configurations in per-user customization file.
  
      The minput_save_config () function saves the configurations done
  
      The minput_save_config () function saves the configurations done
-    so far in the current session into the per-user configuration
+    so far in the current session into the per-user customization
      file.
  
      @return
  
      If the operation was successful, 1 is returned.  If the per-user
      file.
  
      @return
  
      If the operation was successful, 1 is returned.  If the per-user
-    configuration file is currently locked, 0 is returned.  In that
+    customization file is currently locked, 0 is returned.  In that
      case, the caller may wait for a while and try again.  If the
      configuration file is not writable, -1 is returned.  In that case,
      the caller may check the name of the file by calling
      case, the caller may wait for a while and try again.  If the
      configuration file is not writable, -1 is returned.  In that case,
      the caller may check the name of the file by calling
@@ -5554,18 +5578,18 @@ minput_config_file ()
      @seealso
      minput_config_file ()  */
  /***ja
      @seealso
      minput_config_file ()  */
  /***ja
-    @brief ÀßÄê¤ò¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤¹¤ë.
+    @brief ÀßÄê¤ò¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤¹¤ë.
  
      ´Ø¿ô minput_save_config () ¤Ï¸½¹Ô¤Î¥»¥Ã¥·¥ç¥ó¤Ç¤³¤ì¤Þ¤Ç¤Ë¹Ô¤Ã¤¿ÀßÄê
  
      ´Ø¿ô minput_save_config () ¤Ï¸½¹Ô¤Î¥»¥Ã¥·¥ç¥ó¤Ç¤³¤ì¤Þ¤Ç¤Ë¹Ô¤Ã¤¿ÀßÄê
-    ¤ò¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤¹¤ë¡£
+    ¤ò¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤ËÊÝÂ¸¤¹¤ë¡£
  
      @return
  
  
      @return
  
-    À®¸ù¤¹¤ì¤Ð 1 ¤òÊÖ¤¹¡£¥æ¡¼¥¶Ëè¤ÎÀßÄê¥Õ¥¡¥¤¥ë¤¬¥í¥Ã¥¯¤µ¤ì¤Æ¤¤¤ì¤Ð 0
-    ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢¸Æ½ÐÂ¦¤Ï¤·¤Ð¤é¤¯ÂÔ¤Ã¤ÆºÆ»î¹Ô¤Ç¤¤ë¡£ÀßÄê¥Õ¥¡¥¤¥ë
-    ¤¬½ñ¤¹þ¤ßÉÔ²Ä¤Î¾ì¹ç¡¢-1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢minput_config_file () ¤ò
-    ¸Æ¤ó¤Ç¥Õ¥¡¥¤¥ëÌ¾¤ò¥Á¥§¥Ã¥¯¤·¡¢¤Ç¤¤ì¤Ð½ñ¤¹þ¤ß²ÄÇ½¤Ë¤·¡¢ºÆ»î¹Ô¤Ç¤
-    ¤ë¡£
+    À®¸ù¤¹¤ì¤Ð 1 ¤òÊÖ¤¹¡£¥æ¡¼¥¶Ëè¤Î¥«¥¹¥¿¥Þ¥¤¥º¥Õ¥¡¥¤¥ë¤¬¥í¥Ã¥¯¤µ¤ì¤Æ¤¤
+    ¤ì¤Ð 0 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢¸Æ½ÐÂ¦¤Ï¤·¤Ð¤é¤¯ÂÔ¤Ã¤ÆºÆ»î¹Ô¤Ç¤¤ë¡£ÀßÄê¥Õ¥¡
+    ¥¤¥ë¤¬½ñ¤¹þ¤ßÉÔ²Ä¤Î¾ì¹ç¡¢-1 ¤òÊÖ¤¹¡£¤³¤Î¾ì¹ç¡¢minput_config_file
+    () ¤ò¸Æ¤ó¤Ç¥Õ¥¡¥¤¥ëÌ¾¤ò¥Á¥§¥Ã¥¯¤·¡¢¤Ç¤¤ì¤Ð½ñ¤¹þ¤ß²ÄÇ½¤Ë¤·¡¢ºÆ»î¹Ô
+    ¤Ç¤¤ë¡£
  
      @seealso
      minput_config_file ()  */
  
      @seealso
      minput_config_file ()  */
@@ -5613,30 +5637,21 @@ minput_save_config (void)
             else
               custom->cmds = mplist (), p = NULL;
             elt = MPLIST_NEXT (elt);
             else
               custom->cmds = mplist (), p = NULL;
             elt = MPLIST_NEXT (elt);
-           if (MPLIST_TAIL_P (elt))
+           if (p)
               {
               {
-               if (p)
-                 {
-                   /* Make customization ignored.  */
-                   p = MPLIST_NEXT (MPLIST_PLIST (p));
-                   mplist_set (p, Mnil, NULL);
-                 }
+               p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
+               mplist_set (p, Mnil, NULL);
               }
             else
               {
               }
             else
               {
-               elt = MPLIST_NEXT (elt);
-               if (p)
-                 {
-                   p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
-                   mplist_set (p, Mnil, NULL);
-                   mplist__conc (p, elt);
-                 }
-               else
-                 {
-                   p = MPLIST_PLIST (pl);
-                   mplist_add (custom->cmds, Mplist, p);
-                 }
+               p = mplist ();
+               mplist_add (custom->cmds, Mplist, p);
+               M17N_OBJECT_UNREF (p);
+               mplist_add (p, Msymbol, command);
+               p = mplist_add (p, Msymbol, Mnil);
+               p = MPLIST_NEXT (p);
               }
               }
+           mplist__conc (p, elt);
           }
        if (config->vars)
         MPLIST_DO (pl, config->vars)
           }
        if (config->vars)
         MPLIST_DO (pl, config->vars)
@@ -5648,29 +5663,25 @@ minput_save_config (void)
             else
               custom->vars = mplist (), p = NULL;
             elt = MPLIST_NEXT (elt);
             else
               custom->vars = mplist (), p = NULL;
             elt = MPLIST_NEXT (elt);
-           if (MPLIST_TAIL_P (elt))
+           if (p)
               {
               {
-               if (p)
-                 mplist__pop_unref (p);
+               p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
+               mplist_set (p, Mnil, NULL);
               }
             else
               {
               }
             else
               {
-               elt = MPLIST_NEXT (elt);
-               if (p)
-                 {
-                   p = MPLIST_NEXT (MPLIST_NEXT (MPLIST_PLIST (p)));
-                   mplist_set (p, Mnil, NULL);
-                   mplist__conc (p, elt);
-                 }
-               else
-                 {
-                   p = MPLIST_PLIST (pl);
-                   mplist_add (custom->vars, Mplist, p);
-                 }
+               p = mplist ();
+               mplist_add (custom->vars, Mplist, p);
+               M17N_OBJECT_UNREF (p);
+               mplist_add (p, Msymbol, variable);
+               p = mplist_add (p, Msymbol, Mnil);
+               p = MPLIST_NEXT (p);
               }
               }
+           mplist__conc (p, elt);
           }
      }
           }
      }
-  M17N_OBJECT_UNREF (im_config_list);
+  free_im_list (im_config_list);
+  im_config_list = NULL;
  
    /* Next, reflect customization to the actual plist to be written.  */
    data = tail = mplist ();
  
    /* Next, reflect customization to the actual plist to be written.  */
    data = tail = mplist ();