From: handa <handa>
Date: Thu, 20 Oct 2005 12:12:52 +0000 (+0000)
Subject: (take_action_list): Fix previous change.
X-Git-Tag: REL-1-3-0~113
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3191542f3f16de089080f7f60e976914e846e524;p=m17n%2Fm17n-lib.git

(take_action_list): Fix previous change.
---

diff --git a/src/input.c b/src/input.c
index 33443e7..2ffa0a3 100644
--- a/src/input.c
+++ b/src/input.c
@@ -612,7 +612,7 @@ parse_action_list (MPlist *plist, MPlist *macros)
 		{
 		  if (! MPLIST_SYMBOL_P (pl)
 		      && (! MPLIST_INTEGER_P (pl)
-			  || MPLIST_INTEGER (pl) <= 0))
+			  || MPLIST_INTEGER (pl) == 0))
 		    MERROR (MERROR_IM, -1);		    
 		}
 	    }
@@ -1985,9 +1985,11 @@ take_action_list (MInputContext *ic, MPlist *action_list)
 	  mtext_reset (ic_info->preedit_saved);
 	  ic->cursor_pos = ic_info->state_pos = 0;
 	  ic_info->state_key_head = ic_info->key_head = 0;
+
 	  if (intarg < 0)
-	    intarg = 0;
-	  ic_info->used = intarg;
+	    ic_info->used += intarg;
+	  else
+	    ic_info->used = intarg;
 	  shift_state (ic, Mnil);
 	  break;
 	}