[Emacs-diffs] /srv/bzr/emacs/trunk r99615: (skip_chars): Setup gl_state (bug#3823).

[Stefan Monnier]

------------------------------------------------------------
revno: 99615
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2010-03-05 13:42:38 -0500
message:
  (skip_chars): Setup gl_state (bug#3823).
  (in_classes): Use CONSP before XCAR/XCDR.
modified:
  src/ChangeLog
  src/syntax.c

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2010-03-03 17:31:50 +0000
+++ b/src/ChangeLog     2010-03-05 18:42:38 +0000
@@ -1,3 +1,8 @@
+2010-03-05  Stefan Monnier  <address@hidden>
+
+       * syntax.c (skip_chars): Setup gl_state (bug#3823).
+       (in_classes): Use CONSP before XCAR/XCDR.
+
 2010-03-03  Chong Yidong  <address@hidden>
 
        * keymap.c (Fwhere_is_internal): Use Fequal to compare

=== modified file 'src/syntax.c'
--- a/src/syntax.c      2010-01-13 08:35:10 +0000
+++ b/src/syntax.c      2010-03-05 18:42:38 +0000
@@ -1747,6 +1747,12 @@
       }
 
     immediate_quit = 1;
+    /* This code may look up syntax tables using macros that rely on the
+       gl_state object.  To make sure this object is not out of date,
+       let's initialize it manually.
+       We ignore syntax-table text-properties for now, since that's
+       what we've done in the past.  */
+    SETUP_SYNTAX_TABLE (BEGV, 0);
     if (forwardp)
       {
        if (multibyte)
@@ -2072,7 +2078,7 @@
 {
   int fits_class = 0;
 
-  while (! NILP (iso_classes))
+  while (CONSP (iso_classes))
     {
       Lisp_Object elt;
       elt = XCAR (iso_classes);