comparison src/search.c @ 227:0e522484dd2a r20-5b12

Import from CVS: tag r20-5b12
author cvs
date Mon, 13 Aug 2007 10:12:37 +0200
parents 850242ba4a81
children 677f6a0ee643
comparison
equal deleted inserted replaced
226:eea38c7ad7b4 227:0e522484dd2a
1921 if (!NILP (string)) 1921 if (!NILP (string))
1922 { 1922 {
1923 Lisp_Object before, after; 1923 Lisp_Object before, after;
1924 1924
1925 speccount = specpdl_depth (); 1925 speccount = specpdl_depth ();
1926 before = Fsubstring (string, make_int (0), 1926 before = Fsubstring (string, Qzero, make_int (search_regs.start[0]));
1927 make_int (search_regs.start[0]));
1928 after = Fsubstring (string, make_int (search_regs.end[0]), Qnil); 1927 after = Fsubstring (string, make_int (search_regs.end[0]), Qnil);
1929 1928
1930 /* Do case substitution into NEWTEXT if desired. */ 1929 /* Do case substitution into NEWTEXT if desired. */
1931 if (NILP (literal)) 1930 if (NILP (literal))
1932 { 1931 {