From: handa <handa>
Date: Fri, 25 Jan 2008 11:54:53 +0000 (+0000)
Subject: (parse_action_list): Handle the case "(insert INTEGER)".
X-Git-Tag: REL-1-5-1~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ba9e095fcaae3a1b175b26359012c2b6f188d109;p=m17n%2Fm17n-lib.git

(parse_action_list): Handle the case "(insert INTEGER)".
---

diff --git a/src/input.c b/src/input.c
index 76f0261..635efb9 100644
--- a/src/input.c
+++ b/src/input.c
@@ -830,6 +830,13 @@ parse_action_list (MPlist *plist, MPlist *macros)
 		  if (mtext_nchars (MPLIST_MTEXT (pl)) == 0)
 		    MERROR (MERROR_IM, -1);
 		}
+	      else if (MPLIST_INTEGER_P (pl))
+		{
+		  int c = MPLIST_INTEGER (pl);
+
+		  if (c < 0 || c > MCHAR_MAX)
+		    MERROR (MERROR_IM, -1);
+		}
 	      else if (MPLIST_PLIST_P (pl))
 		{
 		  MPLIST_DO (pl, MPLIST_PLIST (pl))