comparison src/syntax.c @ 3794:ea9d3f2cd5fa

(scan_lists, Fforward_comment): #if 0 the code to treat two-character comment enders with a special shortcut. (scan_sexps_forward): Set state.comstart to before the comment starter, not after.

3793:374fc1ccdc3f

	      from--;
	    }

	  if (code == Sendcomment && !quoted)
	    {
	      if (code != SYNTAX (c))
		/* For a two-char comment ender, we can assume
		   it does end a comment.  So scan back in a simple way.  */
		{
		  if (from != stop) from--;

			  && !char_quoted (from))
			break;
		    }
		  break;
		}

	      /* Look back, counting the parity of string-quotes,
		 and recording the comment-starters seen.
		 When we reach a safe place, assume that's not in a string;
		 then step the main scan to the earliest comment-starter seen

	      break;

	    case Sendcomment:
	      if (!parse_sexp_ignore_comments)
		break;
	      if (code != SYNTAX (c))
		/* For a two-char comment ender, we can assume
		   it does end a comment.  So scan back in a simple way.  */
		{
		  if (from != stop) from--;

			  && !char_quoted (from))
			break;
		    }
		  break;
		}

	      /* Look back, counting the parity of string-quotes,
		 and recording the comment-starters seen.
		 When we reach a safe place, assume that's not in a string;
		 then step the main scan to the earliest comment-starter seen

  while (from < end)
    {
      code = SYNTAX (FETCH_CHAR (from));
      from++;
      if (from < end && SYNTAX_COMSTART_FIRST (FETCH_CHAR (from - 1))
	  && SYNTAX_COMSTART_SECOND (FETCH_CHAR (from)))
	{
	  /* Record the comment style we have entered so that only
	     the comment-end sequence of the same style actually
	     terminates the comment section.  */
	  code = Scomment;
	  state.comstyle = SYNTAX_COMMENT_STYLE (FETCH_CHAR (from));
	  from++;
	}

      if (SYNTAX_PREFIX (FETCH_CHAR (from - 1)))
	continue;

	  curlevel->prev = curlevel->last;
	  break;

	case Scomment:
	  state.incomment = 1;
	  state.comstart = from;
	startincomment:
	  if (commentstop)
	    goto done;
	  while (1)
	    {

3794:ea9d3f2cd5fa

	      from--;
	    }

	  if (code == Sendcomment && !quoted)
	    {
#if 0
	      if (code != SYNTAX (c))
		/* For a two-char comment ender, we can assume
		   it does end a comment.  So scan back in a simple way.  */
		{
		  if (from != stop) from--;

			  && !char_quoted (from))
			break;
		    }
		  break;
		}
#endif /* 0 */

	      /* Look back, counting the parity of string-quotes,
		 and recording the comment-starters seen.
		 When we reach a safe place, assume that's not in a string;
		 then step the main scan to the earliest comment-starter seen

	      break;

	    case Sendcomment:
	      if (!parse_sexp_ignore_comments)
		break;
#if 0
	      if (code != SYNTAX (c))
		/* For a two-char comment ender, we can assume
		   it does end a comment.  So scan back in a simple way.  */
		{
		  if (from != stop) from--;

			  && !char_quoted (from))
			break;
		    }
		  break;
		}
#endif /* 0 */

	      /* Look back, counting the parity of string-quotes,
		 and recording the comment-starters seen.
		 When we reach a safe place, assume that's not in a string;
		 then step the main scan to the earliest comment-starter seen

  while (from < end)
    {
      code = SYNTAX (FETCH_CHAR (from));
      from++;
      if (code == Scomment)
	state.comstart = from-1;
      
      else if (from < end && SYNTAX_COMSTART_FIRST (FETCH_CHAR (from - 1))
	       && SYNTAX_COMSTART_SECOND (FETCH_CHAR (from)))
	{
	  /* Record the comment style we have entered so that only
	     the comment-end sequence of the same style actually
	     terminates the comment section.  */
	  code = Scomment;
	  state.comstyle = SYNTAX_COMMENT_STYLE (FETCH_CHAR (from));
	  state.comstart = from-1;
	  from++;
	}

      if (SYNTAX_PREFIX (FETCH_CHAR (from - 1)))
	continue;

	  curlevel->prev = curlevel->last;
	  break;

	case Scomment:
	  state.incomment = 1;
	startincomment:
	  if (commentstop)
	    goto done;
	  while (1)
	    {