# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 895042035 0
# Node ID 74d69da256e455fbd8b0ac65787b72c875fd1881
# Parent  3e5822a3448da85d12510eb64632b10408d3dd43
(skip_chars): When fetching char after \,
don't fail to set c_leading_code.

diff -r 3e5822a3448d -r 74d69da256e4 src/syntax.c
--- a/src/syntax.c	Wed May 13 05:23:56 1998 +0000
+++ b/src/syntax.c	Wed May 13 06:47:15 1998 +0000
@@ -1187,7 +1187,8 @@
 DEFUN ("skip-chars-forward", Fskip_chars_forward, Sskip_chars_forward, 1, 2, 0,
   "Move point forward, stopping before a char not in STRING, or at pos LIM.\n\
 STRING is like the inside of a `[...]' in a regular expression\n\
-except that `]' is never special and `\\' quotes `^', `-' or `\\'.\n\
+except that `]' is never special and `\\' quotes `^', `-' or `\\'\n\
+ (but not as the end of a range; quoting is never needed there).\n\
 Thus, with arg \"a-zA-Z\", this skips letters stopping before first nonletter.\n\
 With arg \"^a-zA-Z\", skips nonletters stopping before first letter.\n\
 Returns the distance traveled, either zero or positive.")
@@ -1311,9 +1312,12 @@
 		break;
 
 	      if (string_multibyte)
-		FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
+		{
+		  c_leading_code = XSTRING (string)->data[i];
+		  FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
+		}
 	      else
-		c = XSTRING (string)->data[i++];
+		c = c_leading_code = XSTRING (string)->data[i++];
 	    }
 	  if (i < XSTRING (string)->size && XSTRING (string)->data[i] == '-')
 	    {