Skip to content

GitLab

Commit 6ec8bbd2 authored by Karl Heuer's avatar Karl Heuer
Browse files
Options

Change all references from point to PT.

parent 7003b258
Hide whitespace changes
Inline Side-by-side
Showing with 109 additions and 109 deletions
src/abbrev.c
View file @ 6ec8bbd2
......@@ -246,7 +246,7 @@ Returns t if expansion took place.")
del_range (wordstart, wordstart + 1);
}
if (!wordstart)
wordstart = scan_words (point, -1);
wordstart = scan_words (PT, -1);
if (!wordstart)
return value;
......@@ -255,9 +255,9 @@ Returns t if expansion took place.")
if (!wordend)
return value;
if (wordend > point)
wordend = point;
whitecnt = point - wordend;
if (wordend > PT)
wordend = PT;
whitecnt = PT - wordend;
if (wordend <= wordstart)
return value;
......@@ -304,7 +304,7 @@ Returns t if expansion took place.")
expansion = XSYMBOL (sym)->value;
insert_from_string (expansion, 0, XSTRING (expansion)->size, 1);
SET_PT (point + whitecnt);
SET_PT (PT + whitecnt);
if (uccount && !lccount)
{
......@@ -313,14 +313,14 @@ Returns t if expansion took place.")
/* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase
but Megatest 68000 compiler can't handle that */
if (!abbrev_all_caps)
if (scan_words (point, -1) > scan_words (wordstart, 1))
if (scan_words (PT, -1) > scan_words (wordstart, 1))
{
Fupcase_initials_region (make_number (wordstart),
make_number (point));
make_number (PT));
goto caped;
}
/* If expansion is one word, or if user says so, upcase it all. */
Fupcase_region (make_number (wordstart), make_number (point));
Fupcase_region (make_number (wordstart), make_number (PT));
caped: ;
}
else if (uccount)
......@@ -329,7 +329,7 @@ Returns t if expansion took place.")
int pos = wordstart;
/* Find the initial. */
while (pos < point
while (pos < PT
&& SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword)
pos++;
......@@ -350,7 +350,7 @@ This differs from ordinary undo in that other editing done since then\n\
is not undone.")
()
{
int opoint = point;
int opoint = PT;
int adjust = 0;
if (last_abbrev_point < BEGV
|| last_abbrev_point > ZV)
......@@ -365,7 +365,7 @@ is not undone.")
if (!STRINGP (val))
error ("value of abbrev-symbol must be a string");
adjust = XSTRING (val)->size;
del_range (point, point + adjust);
del_range (PT, PT + adjust);
/* Don't inherit properties here; just copy from old contents. */
insert_from_string (Vlast_abbrev_text, 0,
XSTRING (Vlast_abbrev_text)->size, 0);
......
src/bytecode.c
View file @ 6ec8bbd2
......@@ -841,7 +841,7 @@ If the third argument is incorrect, Emacs may crash.")
break;
case Bpoint:
XSETFASTINT (v1, point);
XSETFASTINT (v1, PT);
PUSH (v1);
break;
......
src/callint.c
View file @ 6ec8bbd2
......@@ -606,9 +606,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
/* visargs[i+1] = Qnil; */
foo = marker_position (current_buffer->mark);
/* visargs[i] = Qnil; */
args[i] = point < foo ? point_marker : current_buffer->mark;
args[i] = PT < foo ? point_marker : current_buffer->mark;
varies[i] = 3;
args[++i] = point > foo ? point_marker : current_buffer->mark;
args[++i] = PT > foo ? point_marker : current_buffer->mark;
varies[i] = 4;
break;
......
src/casefiddle.c
View file @ 6ec8bbd2
......@@ -227,11 +227,11 @@ operate_on_word (arg, newpoint)
CHECK_NUMBER (arg, 0);
iarg = XINT (arg);
farend = scan_words (point, iarg);
farend = scan_words (PT, iarg);
if (!farend)
farend = iarg > 0 ? ZV : BEGV;
*newpoint = point > farend ? point : farend;
*newpoint = PT > farend ? PT : farend;
XSETFASTINT (val, farend);
return val;
......@@ -246,7 +246,7 @@ See also `capitalize-word'.")
{
Lisp_Object beg, end;
int newpoint;
XSETFASTINT (beg, point);
XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_UP, beg, end);
SET_PT (newpoint);
......@@ -261,7 +261,7 @@ With negative argument, convert previous words but do not move.")
{
Lisp_Object beg, end;
int newpoint;
XSETFASTINT (beg, point);
XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_DOWN, beg, end);
SET_PT (newpoint);
......@@ -278,7 +278,7 @@ With negative argument, capitalize previous words but do not move.")
{
Lisp_Object beg, end;
int newpoint;
XSETFASTINT (beg, point);
XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint);
casify_region (CASE_CAPITALIZE, beg, end);
SET_PT (newpoint);
......
src/cmds.c
View file @ 6ec8bbd2
......@@ -57,7 +57,7 @@ On reaching end of buffer, stop and signal error.")
hooks, etcetera), that's not a good approach. So we validate the
proposed position, then set point. */
{
int new_point = point + XINT (n);
int new_point = PT + XINT (n);
if (new_point < BEGV)
{
......@@ -102,7 +102,7 @@ With positive N, a non-empty line at the end counts as one line\n\
(n)
Lisp_Object n;
{
int pos2 = point;
int pos2 = PT;
int pos;
int count, shortage, negp;
......@@ -178,17 +178,17 @@ N was explicitly specified.")
{
if (XINT (n) < 0)
{
if (point + XINT (n) < BEGV)
if (PT + XINT (n) < BEGV)
Fsignal (Qbeginning_of_buffer, Qnil);
else
del_range (point + XINT (n), point);
del_range (PT + XINT (n), PT);
}
else
{
if (point + XINT (n) > ZV)
if (PT + XINT (n) > ZV)
Fsignal (Qend_of_buffer, Qnil);
else
del_range (point, point + XINT (n));
del_range (PT, PT + XINT (n));
}
}
else
......@@ -216,9 +216,9 @@ N was explicitly specified.")
/* See if we are about to delete a tab or newline backwards. */
for (i = 1; i <= XINT (n); i++)
{
if (point - i < BEGV)
if (PT - i < BEGV)
break;
if (FETCH_CHAR (point - i) == '\t' || FETCH_CHAR (point - i) == '\n')
if (FETCH_CHAR (PT - i) == '\t' || FETCH_CHAR (PT - i) == '\n')
{
deleted_special = 1;
break;
......@@ -232,10 +232,10 @@ N was explicitly specified.")
if (XINT (n) > 0
&& ! NILP (current_buffer->overwrite_mode)
&& ! deleted_special
&& ! (point == ZV || FETCH_CHAR (point) == '\n'))
&& ! (PT == ZV || FETCH_CHAR (PT) == '\n'))
{
Finsert_char (make_number (' '), XINT (n));
SET_PT (point - XINT (n));
SET_PT (PT - XINT (n));
}
return value;
......@@ -302,22 +302,22 @@ internal_self_insert (c1, noautofill)
hairy = 1;
if (!NILP (overwrite)
&& point < ZV
&& PT < ZV
&& (EQ (overwrite, Qoverwrite_mode_binary)
|| (c != '\n' && FETCH_CHAR (point) != '\n'))
|| (c != '\n' && FETCH_CHAR (PT) != '\n'))
&& (EQ (overwrite, Qoverwrite_mode_binary)
|| FETCH_CHAR (point) != '\t'
|| FETCH_CHAR (PT) != '\t'
|| XINT (current_buffer->tab_width) <= 0
|| XFASTINT (current_buffer->tab_width) > 20
|| !((current_column () + 1) % XFASTINT (current_buffer->tab_width))))
{
del_range (point, point + 1);
del_range (PT, PT + 1);
hairy = 2;
}
if (!NILP (current_buffer->abbrev_mode)
&& SYNTAX (c) != Sword
&& NILP (current_buffer->read_only)
&& point > BEGV && SYNTAX (FETCH_CHAR (point - 1)) == Sword)
&& PT > BEGV && SYNTAX (FETCH_CHAR (PT - 1)) == Sword)
{
int modiff = MODIFF;
Fexpand_abbrev ();
......@@ -338,10 +338,10 @@ internal_self_insert (c1, noautofill)
/* After inserting a newline, move to previous line and fill */
/* that. Must have the newline in place already so filling and */
/* justification, if any, know where the end is going to be. */
SET_PT (point - 1);
SET_PT (PT - 1);
tem = call0 (current_buffer->auto_fill_function);
if (c1 == '\n')
SET_PT (point + 1);
SET_PT (PT + 1);
if (!NILP (tem))
hairy = 2;
}
......
src/dispnew.c
View file @ 6ec8bbd2
......@@ -1104,7 +1104,7 @@ direct_output_for_insert (g)
At the moment we only lose at end of line or end of buffer
and only with faces that have some background */
/* Instead of wasting time, give up if character has any text properties */
|| ! NILP (Ftext_properties_at (make_number (point - 1), Qnil))
|| ! NILP (Ftext_properties_at (make_number (PT - 1), Qnil))
#endif
/* Give up if w is minibuffer and a message is being displayed there */
......@@ -1117,17 +1117,17 @@ direct_output_for_insert (g)
int dummy;
if (FRAME_WINDOW_P (frame) || FRAME_MSDOS_P (frame))
face = compute_char_face (frame, w, point - 1, -1, -1, &dummy, point, 0);
face = compute_char_face (frame, w, PT - 1, -1, -1, &dummy, PT, 0);
#endif
current_frame->glyphs[vpos][hpos] = MAKE_GLYPH (frame, g, face);
current_frame->charstarts[vpos][hpos] = point - 1;
current_frame->charstarts[vpos][hpos] = PT - 1;
/* Record the entry for after the newly inserted character. */
current_frame->charstarts[vpos][hpos + 1] = point;
current_frame->charstarts[vpos][hpos + 1] = PT;
adjust_window_charstarts (w, vpos, 1);
}
unchanged_modified = MODIFF;
beg_unchanged = GPT - BEG;
XSETFASTINT (w->last_point, point);
XSETFASTINT (w->last_point, PT);
XSETFASTINT (w->last_point_x, hpos);
XSETFASTINT (w->last_modified, MODIFF);
......@@ -1179,14 +1179,14 @@ direct_output_forward_char (n)
/* Don't use direct output next to an invisible character
since we might need to do something special. */
XSETFASTINT (position, point);
XSETFASTINT (position, PT);
if (XFASTINT (position) < ZV
&& ! NILP (Fget_char_property (position,
Qinvisible,
selected_window)))
return 0;
XSETFASTINT (position, point - 1);
XSETFASTINT (position, PT - 1);
if (XFASTINT (position) >= BEGV
&& ! NILP (Fget_char_property (position,
Qinvisible,
......@@ -1196,7 +1196,7 @@ direct_output_forward_char (n)
FRAME_CURSOR_X (frame) += n;
XSETFASTINT (w->last_point_x, FRAME_CURSOR_X (frame));
XSETFASTINT (w->last_point, point);
XSETFASTINT (w->last_point, PT);
cursor_to (FRAME_CURSOR_Y (frame), FRAME_CURSOR_X (frame));
fflush (stdout);
......
src/editfns.c
View file @ 6ec8bbd2
......@@ -178,7 +178,7 @@ Beginning of buffer is position (point-min)")
()
{
Lisp_Object temp;
XSETFASTINT (temp, point);
XSETFASTINT (temp, PT);
return temp;
}
......@@ -186,7 +186,7 @@ DEFUN ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0,
"Return value of point, as a marker object.")
()
{
return buildmark (point);
return buildmark (PT);
}
int
......@@ -224,8 +224,8 @@ region_limit (beginningp)
Fsignal (Qmark_inactive, Qnil);
m = Fmarker_position (current_buffer->mark);
if (NILP (m)) error ("There is no region now");
if ((point < XFASTINT (m)) == beginningp)
return (make_number (point));
if ((PT < XFASTINT (m)) == beginningp)
return (make_number (PT));
else
return (m);
}
......@@ -393,10 +393,10 @@ At the end of the buffer or accessible region, return 0.")
()
{
Lisp_Object temp;
if (point >= ZV)
if (PT >= ZV)
XSETFASTINT (temp, 0);
else
XSETFASTINT (temp, FETCH_CHAR (point));
XSETFASTINT (temp, FETCH_CHAR (PT));
return temp;
}
......@@ -406,10 +406,10 @@ At the beginning of the buffer or accessible region, return 0.")
()
{
Lisp_Object temp;
if (point <= BEGV)
if (PT <= BEGV)
XSETFASTINT (temp, 0);
else
XSETFASTINT (temp, FETCH_CHAR (point - 1));
XSETFASTINT (temp, FETCH_CHAR (PT - 1));
return temp;
}
......@@ -418,7 +418,7 @@ DEFUN ("bobp", Fbobp, Sbobp, 0, 0, 0,
If the buffer is narrowed, this means the beginning of the narrowed part.")
()
{
if (point == BEGV)
if (PT == BEGV)
return Qt;
return Qnil;
}
......@@ -428,7 +428,7 @@ DEFUN ("eobp", Feobp, Seobp, 0, 0, 0,
If the buffer is narrowed, this means the end of the narrowed part.")
()
{
if (point == ZV)
if (PT == ZV)
return Qt;
return Qnil;
}
......@@ -437,7 +437,7 @@ DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0,
"Return T if point is at the beginning of a line.")
()
{
if (point == BEGV || FETCH_CHAR (point - 1) == '\n')
if (PT == BEGV || FETCH_CHAR (PT - 1) == '\n')
return Qt;
return Qnil;
}
......@@ -447,7 +447,7 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0,
`End of a line' includes point being at the end of the buffer.")
()
{
if (point == ZV || FETCH_CHAR (point) == '\n')
if (PT == ZV || FETCH_CHAR (PT) == '\n')
return Qt;
return Qnil;
}
......@@ -1703,9 +1703,9 @@ or markers) bounding the text that should remain visible.")
BEGV = XFASTINT (start);
SET_BUF_ZV (current_buffer, XFASTINT (end));
if (point < XFASTINT (start))
if (PT < XFASTINT (start))
SET_PT (XFASTINT (start));
if (point > XFASTINT (end))
if (PT > XFASTINT (end))
SET_PT (XFASTINT (end));
current_buffer->clip_changed = 1;
/* Changing the buffer bounds invalidates any recorded current column. */
......
src/indent.c
View file @ 6ec8bbd2
......@@ -283,7 +283,7 @@ current_column ()
register struct Lisp_Char_Table *dp = buffer_display_table ();
int stopchar;
if (point == last_known_column_point
if (PT == last_known_column_point
&& MODIFF == last_known_column_modified)
return last_known_column;
......@@ -292,18 +292,18 @@ current_column ()
if (BUF_INTERVALS (current_buffer)
|| !NILP (current_buffer->overlays_before)
|| !NILP (current_buffer->overlays_after))
return current_column_1 (point);
return current_column_1 (PT);
/* Scan backwards from point to the previous newline,
counting width. Tab characters are the only complicated case. */
/* Make a pointer for decrementing through the chars before point. */
ptr = &FETCH_CHAR (point - 1) + 1;
ptr = &FETCH_CHAR (PT - 1) + 1;
/* Make a pointer to where consecutive chars leave off,
going backwards from point. */
if (point == BEGV)
if (PT == BEGV)
stop = ptr;
else if (point <= GPT || BEGV > GPT)
else if (PT <= GPT || BEGV > GPT)
stop = BEGV_ADDR;
else
stop = GAP_END_ADDR;
......@@ -356,7 +356,7 @@ current_column ()
}
last_known_column = col;
last_known_column_point = point;
last_known_column_point = PT;
last_known_column_modified = MODIFF;
return col;
......@@ -425,7 +425,7 @@ current_column_1 (pos)
endloop:
last_known_column = col;
last_known_column_point = point;
last_known_column_point = PT;
last_known_column_modified = MODIFF;
return col;
......@@ -550,7 +550,7 @@ even if that goes past COLUMN; by default, MININUM is zero.")
Finsert_char (make_number (' '), column, Qt);
last_known_column = mincol;
last_known_column_point = point;
last_known_column_point = PT;
last_known_column_modified = MODIFF;
XSETINT (column, mincol);
......@@ -567,7 +567,7 @@ following any initial whitespace.")
{
Lisp_Object val;
XSETFASTINT (val, position_indentation (find_next_newline (point, -1)));
XSETFASTINT (val, position_indentation (find_next_newline (PT, -1)));
return val;
}
......@@ -680,7 +680,7 @@ The return value is the current column.")
CHECK_NATNUM (column, 0);
goal = XINT (column);
pos = point;
pos = PT;
end = ZV;
next_boundary = pos;
......@@ -743,9 +743,9 @@ The return value is the current column.")
{
int old_point;
del_range (point - 1, point);
del_range (PT - 1, PT);
Findent_to (make_number (goal), Qnil);
old_point = point;
old_point = PT;
Findent_to (make_number (col), Qnil);
SET_PT (old_point);
/* Set the last_known... vars consistently. */
......@@ -757,7 +757,7 @@ The return value is the current column.")
Findent_to (make_number (col = goal), Qnil);
last_known_column = col;
last_known_column_point = point;
last_known_column_point = PT;
last_known_column_modified = MODIFF;
XSETFASTINT (val, col);
......@@ -1409,7 +1409,7 @@ whether or not it is currently displayed in some window.")
else
window = selected_window;
pos = *vmotion (point, (int) XINT (lines), XWINDOW (window));
pos = *vmotion (PT, (int) XINT (lines), XWINDOW (window));
SET_PT (pos.bufpos);
return make_number (pos.vpos);
......
src/lread.c
View file @ 6ec8bbd2
......@@ -219,7 +219,7 @@ unreadchar (readcharfun, c)
else if (BUFFERP (readcharfun))
{
if (XBUFFER (readcharfun) == current_buffer)
SET_PT (point - 1);
SET_PT (PT - 1);
else
SET_BUF_PT (XBUFFER (readcharfun), BUF_PT (XBUFFER (readcharfun)) - 1);
}
......
src/print.c
View file @ 6ec8bbd2
......@@ -173,9 +173,9 @@ glyph_to_str_cpy (glyphs, str)
error ("Marker does not point anywhere"); \
if (XMARKER (original)->buffer != current_buffer) \
set_buffer_internal (XMARKER (original)->buffer); \
old_point = point; \
old_point = PT; \
SET_PT (marker_position (printcharfun)); \
start_point = point; \
start_point = PT; \
printcharfun = Qnil;} \
if (NILP (printcharfun)) \
{ \
......@@ -191,10 +191,10 @@ glyph_to_str_cpy (glyphs, str)
insert (print_buffer, print_buffer_pos); \
if (print_buffer) free (print_buffer); \
if (MARKERP (original)) \
Fset_marker (original, make_number (point), Qnil); \
Fset_marker (original, make_number (PT), Qnil); \
if (old_point >= 0) \
SET_PT (old_point + (old_point >= start_point \
? point - start_point : 0)); \
? PT - start_point : 0)); \
if (old != current_buffer) \
set_buffer_internal (old)
......
src/process.c
View file @ 6ec8bbd2
......@@ -2554,7 +2554,7 @@ read_process_output (proc, channel)
odeactivate = Vdeactivate_mark;
Fset_buffer (p->buffer);
opoint = point;
opoint = PT;
old_read_only = current_buffer->read_only;
XSETFASTINT (old_begv, BEGV);
XSETFASTINT (old_zv, ZV);
......@@ -2571,24 +2571,24 @@ read_process_output (proc, channel)
/* If the output marker is outside of the visible region, save
the restriction and widen. */
if (! (BEGV <= point && point <= ZV))
if (! (BEGV <= PT && PT <= ZV))
Fwiden ();
/* Make sure opoint floats ahead of any new text, just as point
would. */
if (point <= opoint)
if (PT <= opoint)
opoint += nchars;
/* Insert after old_begv, but before old_zv. */
if (point < XFASTINT (old_begv))
if (PT < XFASTINT (old_begv))
XSETFASTINT (old_begv, XFASTINT (old_begv) + nchars);
if (point <= XFASTINT (old_zv))
if (PT <= XFASTINT (old_zv))
XSETFASTINT (old_zv, XFASTINT (old_zv) + nchars);
/* Insert before markers in case we are inserting where
the buffer's mark is, and the user's next command is Meta-y. */
insert_before_markers (chars, nchars);
Fset_marker (p->mark, make_number (point), p->buffer);
Fset_marker (p->mark, make_number (PT), p->buffer);
update_mode_lines++;
......@@ -3620,7 +3620,7 @@ status_notify ()
if (NILP (XBUFFER (buffer)->name))
continue;
Fset_buffer (buffer);
opoint = point;
opoint = PT;
/* Insert new output into buffer
at the current end-of-output marker,
thus preserving logical ordering of input and output. */
......@@ -3628,7 +3628,7 @@ status_notify ()
SET_PT (marker_position (p->mark));
else
SET_PT (ZV);
if (point <= opoint)
if (PT <= opoint)
opoint += XSTRING (msg)->size + XSTRING (p->name)->size + 10;
tem = current_buffer->read_only;
......@@ -3638,7 +3638,7 @@ status_notify ()
insert_string (" ");
Finsert (1, &msg);
current_buffer->read_only = tem;
Fset_marker (p->mark, make_number (point), p->buffer);
Fset_marker (p->mark, make_number (PT), p->buffer);
SET_PT (opoint);
set_buffer_internal (old);
......
src/search.c
View file @ 6ec8bbd2
......@@ -238,7 +238,7 @@ looking_at_1 (string, posix)
}
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 @@ skip_chars (forwardp, syntaxp, string, lim)
fastmap[i] ^= 1;
{
int start_point = point;
int start_point = PT;
immediate_quit = 1;
if (syntaxp)
......@@ -770,33 +770,33 @@ skip_chars (forwardp, syntaxp, string, lim)
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);