From: handa <handa>
Date: Thu, 19 Apr 2007 12:37:37 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: FLT-base~80
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f5c260843009ed8a861ee5576f37452747f9edae;p=m17n%2Fm17n-lib.git

*** empty log message ***
---

diff --git a/src/input.c b/src/input.c
index 888bce0..c923d38 100644
--- a/src/input.c
+++ b/src/input.c
@@ -5103,11 +5103,14 @@ minput_config_command (MSymbol language, MSymbol name, MSymbol command,
 	    }
 	  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_cutom)
+		mplist__pop_unref (plist);
+	      else
+		{
+		  plist = MPLIST_PLIST (plist); /* (NAME nil KEYSEQ ...) */
+		  plist = MPLIST_NEXT (plist);
+		  mplist_set (plist, Mnil, NULL);
+		}
 	    }
 	}
       else