From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 20 Nov 1997 22:03:42 +0000 (+0000)
Subject: (skip_chars): Check type of `string' before using it.
X-Git-Tag: emacs-20.3~2781
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5df4982e74f8816801c860051d42d8bdda88d6d4;p=emacs.git

(skip_chars): Check type of `string' before using it.
---

diff --git a/src/syntax.c b/src/syntax.c
index 371ddedbd74..3c480b41b0d 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -1149,14 +1149,14 @@ skip_chars (forwardp, syntaxp, string, lim)
      form "X-Y" of STRING, both X and Y must belong to the same
      character set because a range striding across character sets is
      meaningless.  */
-  int *char_ranges
-    = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2);
+  int *char_ranges;
   int n_char_ranges = 0;
   int negate = 0;
   register int i;
   int multibyte = !NILP (current_buffer->enable_multibyte_characters);
 
   CHECK_STRING (string, 0);
+  char_ranges = (int *) alloca (XSTRING (string)->size * (sizeof (int)) * 2);
 
   if (NILP (lim))
     XSETINT (lim, forwardp ? ZV : BEGV);