From 0f75abdf76650cbaf98bae0c0cf29b9c62e8f2b4 Mon Sep 17 00:00:00 2001
From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 21:16:32 +0000
Subject: [PATCH] (concat): Check for string overflow (bug#1787).

---
 src/fns.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/fns.c b/src/fns.c
index 913705fcf80..dd05f1f4ca7 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -603,6 +603,8 @@ concat (nargs, args, target_type, last_special)
 	}
 
       result_len += len;
+      if (result_len < 0)
+	error ("String overflow");
     }
 
   if (! some_multibyte)
-- 
2.39.5