Mercurial > emacs
diff src/search.c @ 16039:855c8d8ba0f0
Change all references from point to PT.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 01 Sep 1996 19:15:05 +0000 |
parents | 9531c03134b6 |
children | cc2b553290aa |
line wrap: on
line diff
--- a/src/search.c Sun Sep 01 19:09:14 1996 +0000 +++ b/src/search.c Sun Sep 01 19:15:05 1996 +0000 @@ -238,7 +238,7 @@ } i = re_match_2 (bufp, (char *) p1, s1, (char *) p2, s2, - point - BEGV, &search_regs, + PT - BEGV, &search_regs, ZV - BEGV); if (i == -2) matcher_overflow (); @@ -762,7 +762,7 @@ fastmap[i] ^= 1; { - int start_point = point; + int start_point = PT; immediate_quit = 1; if (syntaxp) @@ -770,33 +770,33 @@ if (forwardp) { - while (point < XINT (lim) - && fastmap[(unsigned char) syntax_code_spec[(int) SYNTAX (FETCH_CHAR (point))]]) - SET_PT (point + 1); + while (PT < XINT (lim) + && fastmap[(unsigned char) syntax_code_spec[(int) SYNTAX (FETCH_CHAR (PT))]]) + SET_PT (PT + 1); } else { - while (point > XINT (lim) - && fastmap[(unsigned char) syntax_code_spec[(int) SYNTAX (FETCH_CHAR (point - 1))]]) - SET_PT (point - 1); + while (PT > XINT (lim) + && fastmap[(unsigned char) syntax_code_spec[(int) SYNTAX (FETCH_CHAR (PT - 1))]]) + SET_PT (PT - 1); } } else { if (forwardp) { - while (point < XINT (lim) && fastmap[FETCH_CHAR (point)]) - SET_PT (point + 1); + while (PT < XINT (lim) && fastmap[FETCH_CHAR (PT)]) + SET_PT (PT + 1); } else { - while (point > XINT (lim) && fastmap[FETCH_CHAR (point - 1)]) - SET_PT (point - 1); + while (PT > XINT (lim) && fastmap[FETCH_CHAR (PT - 1)]) + SET_PT (PT - 1); } } immediate_quit = 0; - return make_number (point - start_point); + return make_number (PT - start_point); } } @@ -826,7 +826,7 @@ { CHECK_NUMBER_COERCE_MARKER (bound, 1); lim = XINT (bound); - if (n > 0 ? lim < point : lim > point) + if (n > 0 ? lim < PT : lim > PT) error ("Invalid search bound (wrong side of point)"); if (lim > ZV) lim = ZV; @@ -834,7 +834,7 @@ lim = BEGV; } - np = search_buffer (string, point, lim, n, RE, + np = search_buffer (string, PT, lim, n, RE, (!NILP (current_buffer->case_fold_search) ? XCHAR_TABLE (current_buffer->case_canon_table)->contents : 0), @@ -1745,7 +1745,7 @@ for (pos = 0; pos < XSTRING (newtext)->size; pos++) { - int offset = point - search_regs.start[sub]; + int offset = PT - search_regs.start[sub]; c = XSTRING (newtext)->data[pos]; if (c == '\\') @@ -1773,13 +1773,13 @@ UNGCPRO; } - inslen = point - (search_regs.start[sub]); + inslen = PT - (search_regs.start[sub]); del_range (search_regs.start[sub] + inslen, search_regs.end[sub] + inslen); if (case_action == all_caps) - Fupcase_region (make_number (point - inslen), make_number (point)); + Fupcase_region (make_number (PT - inslen), make_number (PT)); else if (case_action == cap_initial) - Fupcase_initials_region (make_number (point - inslen), make_number (point)); + Fupcase_initials_region (make_number (PT - inslen), make_number (PT)); return Qnil; }