From: handa <handa>
Date: Wed, 2 May 2007 01:35:17 +0000 (+0000)
Subject: (minput_save_config): Unref unnecessary plist.  Use
X-Git-Tag: FLT-base~74
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=755bbf925baa003e198343e4c3558885298b1ea6;p=m17n%2Fm17n-lib.git

(minput_save_config): Unref unnecessary plist.  Use
free_im_list to free im_config_list.
---

diff --git a/src/input.c b/src/input.c
index 9edb55e..b4561ec 100644
--- a/src/input.c
+++ b/src/input.c
@@ -5646,6 +5646,7 @@ minput_save_config (void)
 	      {
 		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);
@@ -5671,6 +5672,7 @@ minput_save_config (void)
 	      {
 		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);
@@ -5678,7 +5680,8 @@ minput_save_config (void)
 	    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 ();