X-Git-Url: http://git.chise.org/gitweb/?p=m17n%2Fm17n-test.git;a=blobdiff_plain;f=m17n-imconf.c;h=24db13f604de7a308a632d2084d6ac6b6cc97aa2;hp=90eb87f0d6ed55c03a6d061dda9f79161b0c966b;hb=e286b0841cbcdb0e7123529f221e5ac17e883c4d;hpb=aeff06da193c423a9be2ecdaecd788910b669bf1

diff --git a/m17n-imconf.c b/m17n-imconf.c
index 90eb87f..24db13f 100644
--- a/m17n-imconf.c
+++ b/m17n-imconf.c
@@ -177,6 +177,9 @@ call_config_common (int (*func) (MSymbol, MSymbol, MSymbol, MPlist *),
     ERROR (error_invalid_arg);
   if (TAILP (arg))
     arg = NULL;
+  else if (mplist_key (arg) == Mplist
+	   && mplist_key ((MPlist *) mplist_value (arg)) == Mnil)
+    arg = (MPlist *) mplist_value (arg);
   if (func (lang, name, target, arg) < 0)
     ERROR (error_command_fail);
   return NULL;