comparison src/search.c @ 58567:47729f2cb184

(syms_of_search) <search-spaces-regexp>: Move 'doc:' marker out of doc string.

58566:b5f77e7bd232

	    list = Fcdr (list);
	  }
	else
	  {
	    int from;
	    
	    if (MARKERP (marker))
	      {
		if (XMARKER (marker)->buffer == 0)
		  XSETFASTINT (marker, 0);
		else
		  XSETBUFFER (last_thing_searched, XMARKER (marker)->buffer);
	      }
	    
	    CHECK_NUMBER_COERCE_MARKER (marker);
	    from = XINT (marker);
	    list = Fcdr (list);
	    
	    marker = Fcar (list);
	    if (MARKERP (marker) && XMARKER (marker)->buffer == 0)
	      XSETFASTINT (marker, 0);
	    
	    CHECK_NUMBER_COERCE_MARKER (marker);
	    search_regs.start[i] = from;
	    search_regs.end[i] = XINT (marker);
	  }
	list = Fcdr (list);

  saved_last_thing_searched = Qnil;
  staticpro (&saved_last_thing_searched);

  DEFVAR_LISP ("search-spaces-regexp", &Vsearch_spaces_regexp,
      /* doc: Regexp to substitute for bunches of spaces in regexp search.
Some commands use this for user-specified regexps.
Spaces that occur inside character classes or repetition operators
or other such regexp constructs are not replaced with this.
A value of nil (which is the normal value) means treat spaces literally.  */);
  Vsearch_spaces_regexp = Qnil;

58567:47729f2cb184

	    list = Fcdr (list);
	  }
	else
	  {
	    int from;

	    if (MARKERP (marker))
	      {
		if (XMARKER (marker)->buffer == 0)
		  XSETFASTINT (marker, 0);
		else
		  XSETBUFFER (last_thing_searched, XMARKER (marker)->buffer);
	      }

	    CHECK_NUMBER_COERCE_MARKER (marker);
	    from = XINT (marker);
	    list = Fcdr (list);

	    marker = Fcar (list);
	    if (MARKERP (marker) && XMARKER (marker)->buffer == 0)
	      XSETFASTINT (marker, 0);

	    CHECK_NUMBER_COERCE_MARKER (marker);
	    search_regs.start[i] = from;
	    search_regs.end[i] = XINT (marker);
	  }
	list = Fcdr (list);

  saved_last_thing_searched = Qnil;
  staticpro (&saved_last_thing_searched);

  DEFVAR_LISP ("search-spaces-regexp", &Vsearch_spaces_regexp,
      doc: /* Regexp to substitute for bunches of spaces in regexp search.
Some commands use this for user-specified regexps.
Spaces that occur inside character classes or repetition operators
or other such regexp constructs are not replaced with this.
A value of nil (which is the normal value) means treat spaces literally.  */);
  Vsearch_spaces_regexp = Qnil;