comparison src/search.c @ 9319:7969182b6cc6

(skip_chars, Fmatch_data, Fstore_match_data): Don't use XFASTINT as an lvalue.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 16:12:32 +0000
parents f2138d548313
children 8598c3d6f2f0
comparison
equal deleted inserted replaced
9318:a14cc1712337 9319:7969182b6cc6
432 /* In any case, don't allow scan outside bounds of buffer. */ 432 /* In any case, don't allow scan outside bounds of buffer. */
433 /* jla turned this off, for no known reason. 433 /* jla turned this off, for no known reason.
434 bfox turned the ZV part on, and rms turned the 434 bfox turned the ZV part on, and rms turned the
435 BEGV part back on. */ 435 BEGV part back on. */
436 if (XINT (lim) > ZV) 436 if (XINT (lim) > ZV)
437 XFASTINT (lim) = ZV; 437 XSETFASTINT (lim, ZV);
438 if (XINT (lim) < BEGV) 438 if (XINT (lim) < BEGV)
439 XFASTINT (lim) = BEGV; 439 XSETFASTINT (lim, BEGV);
440 440
441 p = XSTRING (string)->data; 441 p = XSTRING (string)->data;
442 pend = p + XSTRING (string)->size; 442 pend = p + XSTRING (string)->size;
443 bzero (fastmap, sizeof fastmap); 443 bzero (fastmap, sizeof fastmap);
444 444
1499 int start = search_regs.start[i]; 1499 int start = search_regs.start[i];
1500 if (start >= 0) 1500 if (start >= 0)
1501 { 1501 {
1502 if (EQ (last_thing_searched, Qt)) 1502 if (EQ (last_thing_searched, Qt))
1503 { 1503 {
1504 XFASTINT (data[2 * i]) = start; 1504 XSETFASTINT (data[2 * i], start);
1505 XFASTINT (data[2 * i + 1]) = search_regs.end[i]; 1505 XSETFASTINT (data[2 * i + 1], search_regs.end[i]);
1506 } 1506 }
1507 else if (BUFFERP (last_thing_searched)) 1507 else if (BUFFERP (last_thing_searched))
1508 { 1508 {
1509 data[2 * i] = Fmake_marker (); 1509 data[2 * i] = Fmake_marker ();
1510 Fset_marker (data[2 * i], 1510 Fset_marker (data[2 * i],
1585 else 1585 else
1586 { 1586 {
1587 if (MARKERP (marker)) 1587 if (MARKERP (marker))
1588 { 1588 {
1589 if (XMARKER (marker)->buffer == 0) 1589 if (XMARKER (marker)->buffer == 0)
1590 XFASTINT (marker) = 0; 1590 XSETFASTINT (marker, 0);
1591 else 1591 else
1592 XSETBUFFER (last_thing_searched, XMARKER (marker)->buffer); 1592 XSETBUFFER (last_thing_searched, XMARKER (marker)->buffer);
1593 } 1593 }
1594 1594
1595 CHECK_NUMBER_COERCE_MARKER (marker, 0); 1595 CHECK_NUMBER_COERCE_MARKER (marker, 0);
1596 search_regs.start[i] = XINT (marker); 1596 search_regs.start[i] = XINT (marker);
1597 list = Fcdr (list); 1597 list = Fcdr (list);
1598 1598
1599 marker = Fcar (list); 1599 marker = Fcar (list);
1600 if (MARKERP (marker) && XMARKER (marker)->buffer == 0) 1600 if (MARKERP (marker) && XMARKER (marker)->buffer == 0)
1601 XFASTINT (marker) = 0; 1601 XSETFASTINT (marker, 0);
1602 1602
1603 CHECK_NUMBER_COERCE_MARKER (marker, 0); 1603 CHECK_NUMBER_COERCE_MARKER (marker, 0);
1604 search_regs.end[i] = XINT (marker); 1604 search_regs.end[i] = XINT (marker);
1605 } 1605 }
1606 list = Fcdr (list); 1606 list = Fcdr (list);