From ba9e095fcaae3a1b175b26359012c2b6f188d109 Mon Sep 17 00:00:00 2001
From: handa <handa>
Date: Fri, 25 Jan 2008 11:54:53 +0000
Subject: [PATCH] (parse_action_list): Handle the case "(insert INTEGER)".

---
 src/input.c |    7 +++++++
 1 file changed, 7 insertions(+)

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))
-- 
1.7.10.4