Merge from origin/emacs-25

6e3adf8 Fix crash in syntax.c after GC
973ce5a Improve squiggly heredoc support in non-SMIE Ruby mode
9d5cceb Fix doc string quoting
0b33a23 Fix mouse dragging of vertical dividers with scroll bars on l...
a5d05f4 * etc/PROBLEMS: Mention the link-time problems on FreeBSD 11.

1 files changed, 25 insertions, 36 deletions

diff --git a/src/syntax.c b/src/syntax.c
index 1c3f644aec5..78c7de9c65b 100644
--- a/src/syntax.c
+++ b/src/syntax.c
@@ -2182,63 +2182,51 @@ skip_syntaxes (bool forwardp, Lisp_Object string, Lisp_Object lim)
     ptrdiff_t start_point = PT;
     ptrdiff_t pos = PT;
     ptrdiff_t pos_byte = PT_BYTE;
-    unsigned char *p = PT_ADDR, *endp, *stop;
-
-    if (forwardp)
-      {
-        endp = (XINT (lim) == GPT) ? GPT_ADDR : CHAR_POS_ADDR (XINT (lim));
-        stop = (pos < GPT && GPT < XINT (lim)) ? GPT_ADDR : endp;
-      }
-    else
-      {
-        endp = CHAR_POS_ADDR (XINT (lim));
-        stop = (pos >= GPT && GPT > XINT (lim)) ? GAP_END_ADDR : endp;
-      }
+    unsigned char *p, *endp, *stop;
 
     immediate_quit = 1;
     SETUP_SYNTAX_TABLE (pos, forwardp ? 1 : -1);
+
     if (forwardp)
       {
-        if (multibyte)
+        while (true)
           {
-            while (1)
+            p = BYTE_POS_ADDR (pos_byte);
+            endp = XINT (lim) == GPT ? GPT_ADDR : CHAR_POS_ADDR (XINT (lim));
+            stop = pos < GPT && GPT < XINT (lim) ? GPT_ADDR : endp;
+
+            do
               {
                 int nbytes;
 
                 if (p >= stop)
                   {
                     if (p >= endp)
-                      break;
+                      goto done;
                     p = GAP_END_ADDR;
                     stop = endp;
                   }
-                c = STRING_CHAR_AND_LENGTH (p, nbytes);
+                if (multibyte)
+                  c = STRING_CHAR_AND_LENGTH (p, nbytes);
+                else
+                  c = *p, nbytes = 1;
                 if (! fastmap[SYNTAX (c)])
-                  break;
+                  goto done;
                 p += nbytes, pos++, pos_byte += nbytes;
-                UPDATE_SYNTAX_TABLE_FORWARD (pos);
-              }
-          }
-        else
-          {
-            while (1)
-              {
-                if (p >= stop)
-                  {
-                    if (p >= endp)
-                      break;
-                    p = GAP_END_ADDR;
-                    stop = endp;
-                  }
-                if (! fastmap[SYNTAX (*p)])
-                  break;
-                p++, pos++, pos_byte++;
-                UPDATE_SYNTAX_TABLE_FORWARD (pos);
               }
+            while (!parse_sexp_lookup_properties
+                   || pos < gl_state.e_property);
+
+            update_syntax_table_forward (pos + gl_state.offset,
+                                         false, gl_state.object);
           }
       }
     else
       {
+        p = BYTE_POS_ADDR (pos_byte);
+        endp = CHAR_POS_ADDR (XINT (lim));
+        stop = pos >= GPT && GPT > XINT (lim) ? GAP_END_ADDR : endp;
+
         if (multibyte)
           {
             while (1)
@@ -2280,6 +2268,7 @@ skip_syntaxes (bool forwardp, Lisp_Object string, Lisp_Object lim)
           }
       }
 
+  done:
     SET_PT_BOTH (pos, pos_byte);
     immediate_quit = 0;
 
@@ -3109,7 +3098,7 @@ but before count is used up, nil is returned.  */)
 DEFUN ("backward-prefix-chars", Fbackward_prefix_chars, Sbackward_prefix_chars,
        0, 0, 0,
        doc: /* Move point backward over any number of chars with prefix syntax.
-This includes chars with expression prefix syntax class (') and those with
+This includes chars with expression prefix syntax class (\\=') and those with
 the prefix syntax flag (p).  */)
   (void)
 {