From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Aug 1998 21:19:03 +0000 (+0000)
Subject: (scan_sexps_forward): Set up the syntax table scanning
X-Git-Tag: emacs-20.3~85
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=326b283b18e793033004fa8c54f63599e1825e2c;p=emacs.git

(scan_sexps_forward): Set up the syntax table scanning
stuff before jumping into the loop.
---

diff --git a/src/syntax.c b/src/syntax.c
index b17a8d4d0bc..4edac655b7f 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -2383,17 +2383,23 @@ do { prev_from = from;				\
   curlevel->prev = -1;
   curlevel->last = -1;
 
+  SETUP_SYNTAX_TABLE (prev_from, 1);
+  prev_from_syntax = SYNTAX_WITH_FLAGS (FETCH_CHAR (prev_from_byte));
+  UPDATE_SYNTAX_TABLE_FORWARD (from);
+
   /* Enter the loop at a place appropriate for initial state.  */
 
-  if (state.incomment) goto startincomment;
+  if (state.incomment)
+    goto startincomment;
   if (state.instring >= 0)
     {
       nofence = state.instring != ST_STRING_STYLE;
-      if (start_quoted) goto startquotedinstring;
+      if (start_quoted)
+	goto startquotedinstring;
       goto startinstring;
     }
-  if (start_quoted) goto startquoted;
-
+  else if (start_quoted)
+    goto startquoted;
 
   SETUP_SYNTAX_TABLE (prev_from, 1);
   prev_from_syntax = SYNTAX_WITH_FLAGS (FETCH_CHAR (prev_from_byte));