comparison src/search.c @ 22533:6eae236a4f01

(Freplace_match): Work by chars, not by bytes, for scanning the old text, and for inserting new string in buffer.

22532:5a83f0f3b29d

since only regular expressions have distinguished subexpressions.")
  (newtext, fixedcase, literal, string, subexp)
     Lisp_Object newtext, fixedcase, literal, string, subexp;
{
  enum { nochange, all_caps, cap_initial } case_action;
  register int pos, last;
  int some_multiletter_word;
  int some_lowercase;
  int some_uppercase;
  int some_nonuppercase_initial;
  register int c, prevc;

			   make_number (search_regs.end[sub]));
    }

  if (NILP (fixedcase))
    {
      int beg;
      /* Decide how to casify by examining the matched text. */

      if (NILP (string))
	last = CHAR_TO_BYTE (search_regs.end[sub]);
      else
	last = search_regs.end[sub];

      if (NILP (string))
	beg = CHAR_TO_BYTE (search_regs.start[sub]);
      else
	beg = search_regs.start[sub];

      prevc = '\n';
      case_action = all_caps;

      /* some_multiletter_word is set nonzero if any original word

      some_multiletter_word = 0;
      some_lowercase = 0;
      some_nonuppercase_initial = 0;
      some_uppercase = 0;

      for (pos = beg; pos < last; pos++)
	{
	  if (NILP (string))
	    c = FETCH_BYTE (pos);
	  else
	    c = XSTRING (string)->data[pos];

	  if (LOWERCASEP (c))
	    {
	      /* Cannot be all caps if any original char is lower case */

	  int lastpos = 0;
	  int lastpos_byte = 0;
	  /* We build up the substituted string in ACCUM.  */
	  Lisp_Object accum;
	  Lisp_Object middle;
	  int pos_byte;

	  accum = Qnil;

	  for (pos_byte = 0, pos = 0; pos_byte < STRING_BYTES (XSTRING (newtext));)
	    {
	      int substart = -1;
	      int subend;
	      int delbackslash = 0;

  if (!NILP (literal))
    Finsert_and_inherit (1, &newtext);
  else
    {
      struct gcpro gcpro1;
      GCPRO1 (newtext);

      for (pos = 0; pos < XSTRING (newtext)->size; pos++)
	{
	  int offset = PT - search_regs.start[sub];

	  c = XSTRING (newtext)->data[pos];
	  if (c == '\\')
	    {
	      c = XSTRING (newtext)->data[++pos];
	      if (c == '&')
		Finsert_buffer_substring
		  (Fcurrent_buffer (),
		   make_number (search_regs.start[sub] + offset),
		   make_number (search_regs.end[sub] + offset));

22533:6eae236a4f01

since only regular expressions have distinguished subexpressions.")
  (newtext, fixedcase, literal, string, subexp)
     Lisp_Object newtext, fixedcase, literal, string, subexp;
{
  enum { nochange, all_caps, cap_initial } case_action;
  register int pos, pos_byte;
  int some_multiletter_word;
  int some_lowercase;
  int some_uppercase;
  int some_nonuppercase_initial;
  register int c, prevc;

			   make_number (search_regs.end[sub]));
    }

  if (NILP (fixedcase))
    {
      /* Decide how to casify by examining the matched text. */
      int last;

      pos = search_regs.start[sub];
      last = search_regs.end[sub];

      if (NILP (string))
	pos_byte = CHAR_TO_BYTE (pos);
      else
	pos_byte = string_char_to_byte (string, pos);

      prevc = '\n';
      case_action = all_caps;

      /* some_multiletter_word is set nonzero if any original word

      some_multiletter_word = 0;
      some_lowercase = 0;
      some_nonuppercase_initial = 0;
      some_uppercase = 0;

      while (pos < last)
	{
	  if (NILP (string))
	    {
	      c = FETCH_CHAR (pos_byte);
	      INC_BOTH (pos, pos_byte);
	    }
	  else
	    FETCH_STRING_CHAR_ADVANCE (c, string, pos, pos_byte);

	  if (LOWERCASEP (c))
	    {
	      /* Cannot be all caps if any original char is lower case */

	  int lastpos = 0;
	  int lastpos_byte = 0;
	  /* We build up the substituted string in ACCUM.  */
	  Lisp_Object accum;
	  Lisp_Object middle;
	  int length = STRING_BYTES (XSTRING (newtext));

	  accum = Qnil;

	  for (pos_byte = 0, pos = 0; pos_byte < length;)
	    {
	      int substart = -1;
	      int subend;
	      int delbackslash = 0;

  if (!NILP (literal))
    Finsert_and_inherit (1, &newtext);
  else
    {
      struct gcpro gcpro1;
      int length = STRING_BYTES (XSTRING (newtext));

      GCPRO1 (newtext);

      for (pos_byte = 0, pos = 0; pos_byte < length;)
	{
	  int offset = PT - search_regs.start[sub];

	  FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);

	  if (c == '\\')
	    {
	      FETCH_STRING_CHAR_ADVANCE (c, newtext, pos, pos_byte);
	      if (c == '&')
		Finsert_buffer_substring
		  (Fcurrent_buffer (),
		   make_number (search_regs.start[sub] + offset),
		   make_number (search_regs.end[sub] + offset));