From 755bbf925baa003e198343e4c3558885298b1ea6 Mon Sep 17 00:00:00 2001 From: handa Date: Wed, 2 May 2007 01:35:17 +0000 Subject: [PATCH] (minput_save_config): Unref unnecessary plist. Use free_im_list to free im_config_list. --- src/input.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 (); -- 1.7.10.4