From: handa <handa>
Date: Fri, 11 Jul 2008 11:45:05 +0000 (+0000)
Subject: (minput_open_im): Check if the arg NAME is not Mnil.
X-Git-Tag: REL-1-5-3~28
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b4fe3b9243fb0f3d0b4bd54b63f0d880103d3cb7;p=m17n%2Fm17n-lib.git

(minput_open_im): Check if the arg NAME is not Mnil.
---

diff --git a/src/input.c b/src/input.c
index cd67276..ad1ed4b 100644
--- a/src/input.c
+++ b/src/input.c
@@ -4321,7 +4321,11 @@ minput_open_im (MSymbol language, MSymbol name, void *arg)
   MDEBUG_PRINT2 ("  [IM] opening (%s %s) ... ",
 		 msymbol_name (language), msymbol_name (name));
   if (language)
-    driver = minput_driver;
+    {
+      if (name == Mnil)
+	MERROR (MERROR_IM, NULL);
+      driver = minput_driver;
+    }
   else
     {
       driver = (MInputDriver *) msymbol_get (name, Minput_driver);