From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 27 Jan 2009 21:16:32 +0000 (+0000)
Subject: (concat): Check for string overflow (bug#1787).
X-Git-Tag: emacs-pretest-23.0.90~135
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0f75abdf76650cbaf98bae0c0cf29b9c62e8f2b4;p=emacs.git

(concat): Check for string overflow (bug#1787).
---

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)