comparison src/syntax.c @ 22052:74d69da256e4

(skip_chars): When fetching char after \, don't fail to set c_leading_code.

22051:3e5822a3448d

Lisp_Object skip_chars ();

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\
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.")
  (string, lim)
     Lisp_Object string, lim;

	    {
	      if (i == XSTRING (string)->size)
		break;

	      if (string_multibyte)
		FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
	      else
		c = XSTRING (string)->data[i++];
	    }
	  if (i < XSTRING (string)->size && XSTRING (string)->data[i] == '-')
	    {
	      unsigned int c2;

22052:74d69da256e4

Lisp_Object skip_chars ();

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\
 (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.")
  (string, lim)
     Lisp_Object string, lim;

	    {
	      if (i == XSTRING (string)->size)
		break;

	      if (string_multibyte)
		{
		  c_leading_code = XSTRING (string)->data[i];
		  FETCH_STRING_CHAR_ADVANCE (c, string, i, i_byte);
		}
	      else
		c = c_leading_code = XSTRING (string)->data[i++];
	    }
	  if (i < XSTRING (string)->size && XSTRING (string)->data[i] == '-')
	    {
	      unsigned int c2;