Commit 6ec8bbd2 authored by Karl Heuer's avatar Karl Heuer

Change all references from point to PT.

parent 7003b258
...@@ -246,7 +246,7 @@ Returns t if expansion took place.") ...@@ -246,7 +246,7 @@ Returns t if expansion took place.")
del_range (wordstart, wordstart + 1); del_range (wordstart, wordstart + 1);
} }
if (!wordstart) if (!wordstart)
wordstart = scan_words (point, -1); wordstart = scan_words (PT, -1);
if (!wordstart) if (!wordstart)
return value; return value;
...@@ -255,9 +255,9 @@ Returns t if expansion took place.") ...@@ -255,9 +255,9 @@ Returns t if expansion took place.")
if (!wordend) if (!wordend)
return value; return value;
if (wordend > point) if (wordend > PT)
wordend = point; wordend = PT;
whitecnt = point - wordend; whitecnt = PT - wordend;
if (wordend <= wordstart) if (wordend <= wordstart)
return value; return value;
...@@ -304,7 +304,7 @@ Returns t if expansion took place.") ...@@ -304,7 +304,7 @@ Returns t if expansion took place.")
expansion = XSYMBOL (sym)->value; expansion = XSYMBOL (sym)->value;
insert_from_string (expansion, 0, XSTRING (expansion)->size, 1); insert_from_string (expansion, 0, XSTRING (expansion)->size, 1);
SET_PT (point + whitecnt); SET_PT (PT + whitecnt);
if (uccount && !lccount) if (uccount && !lccount)
{ {
...@@ -313,14 +313,14 @@ Returns t if expansion took place.") ...@@ -313,14 +313,14 @@ Returns t if expansion took place.")
/* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase /* This used to be if (!... && ... >= ...) Fcapitalize; else Fupcase
but Megatest 68000 compiler can't handle that */ but Megatest 68000 compiler can't handle that */
if (!abbrev_all_caps) 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), Fupcase_initials_region (make_number (wordstart),
make_number (point)); make_number (PT));
goto caped; goto caped;
} }
/* If expansion is one word, or if user says so, upcase it all. */ /* 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: ; caped: ;
} }
else if (uccount) else if (uccount)
...@@ -329,7 +329,7 @@ Returns t if expansion took place.") ...@@ -329,7 +329,7 @@ Returns t if expansion took place.")
int pos = wordstart; int pos = wordstart;
/* Find the initial. */ /* Find the initial. */
while (pos < point while (pos < PT
&& SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword) && SYNTAX (*BUF_CHAR_ADDRESS (current_buffer, pos)) != Sword)
pos++; pos++;
...@@ -350,7 +350,7 @@ This differs from ordinary undo in that other editing done since then\n\ ...@@ -350,7 +350,7 @@ This differs from ordinary undo in that other editing done since then\n\
is not undone.") is not undone.")
() ()
{ {
int opoint = point; int opoint = PT;
int adjust = 0; int adjust = 0;
if (last_abbrev_point < BEGV if (last_abbrev_point < BEGV
|| last_abbrev_point > ZV) || last_abbrev_point > ZV)
...@@ -365,7 +365,7 @@ is not undone.") ...@@ -365,7 +365,7 @@ is not undone.")
if (!STRINGP (val)) if (!STRINGP (val))
error ("value of abbrev-symbol must be a string"); error ("value of abbrev-symbol must be a string");
adjust = XSTRING (val)->size; adjust = XSTRING (val)->size;
del_range (point, point + adjust); del_range (PT, PT + adjust);
/* Don't inherit properties here; just copy from old contents. */ /* Don't inherit properties here; just copy from old contents. */
insert_from_string (Vlast_abbrev_text, 0, insert_from_string (Vlast_abbrev_text, 0,
XSTRING (Vlast_abbrev_text)->size, 0); XSTRING (Vlast_abbrev_text)->size, 0);
......
...@@ -841,7 +841,7 @@ If the third argument is incorrect, Emacs may crash.") ...@@ -841,7 +841,7 @@ If the third argument is incorrect, Emacs may crash.")
break; break;
case Bpoint: case Bpoint:
XSETFASTINT (v1, point); XSETFASTINT (v1, PT);
PUSH (v1); PUSH (v1);
break; break;
......
...@@ -606,9 +606,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.") ...@@ -606,9 +606,9 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
/* visargs[i+1] = Qnil; */ /* visargs[i+1] = Qnil; */
foo = marker_position (current_buffer->mark); foo = marker_position (current_buffer->mark);
/* visargs[i] = Qnil; */ /* visargs[i] = Qnil; */
args[i] = point < foo ? point_marker : current_buffer->mark; args[i] = PT < foo ? point_marker : current_buffer->mark;
varies[i] = 3; varies[i] = 3;
args[++i] = point > foo ? point_marker : current_buffer->mark; args[++i] = PT > foo ? point_marker : current_buffer->mark;
varies[i] = 4; varies[i] = 4;
break; break;
......
...@@ -227,11 +227,11 @@ operate_on_word (arg, newpoint) ...@@ -227,11 +227,11 @@ operate_on_word (arg, newpoint)
CHECK_NUMBER (arg, 0); CHECK_NUMBER (arg, 0);
iarg = XINT (arg); iarg = XINT (arg);
farend = scan_words (point, iarg); farend = scan_words (PT, iarg);
if (!farend) if (!farend)
farend = iarg > 0 ? ZV : BEGV; farend = iarg > 0 ? ZV : BEGV;
*newpoint = point > farend ? point : farend; *newpoint = PT > farend ? PT : farend;
XSETFASTINT (val, farend); XSETFASTINT (val, farend);
return val; return val;
...@@ -246,7 +246,7 @@ See also `capitalize-word'.") ...@@ -246,7 +246,7 @@ See also `capitalize-word'.")
{ {
Lisp_Object beg, end; Lisp_Object beg, end;
int newpoint; int newpoint;
XSETFASTINT (beg, point); XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint); end = operate_on_word (arg, &newpoint);
casify_region (CASE_UP, beg, end); casify_region (CASE_UP, beg, end);
SET_PT (newpoint); SET_PT (newpoint);
...@@ -261,7 +261,7 @@ With negative argument, convert previous words but do not move.") ...@@ -261,7 +261,7 @@ With negative argument, convert previous words but do not move.")
{ {
Lisp_Object beg, end; Lisp_Object beg, end;
int newpoint; int newpoint;
XSETFASTINT (beg, point); XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint); end = operate_on_word (arg, &newpoint);
casify_region (CASE_DOWN, beg, end); casify_region (CASE_DOWN, beg, end);
SET_PT (newpoint); SET_PT (newpoint);
...@@ -278,7 +278,7 @@ With negative argument, capitalize previous words but do not move.") ...@@ -278,7 +278,7 @@ With negative argument, capitalize previous words but do not move.")
{ {
Lisp_Object beg, end; Lisp_Object beg, end;
int newpoint; int newpoint;
XSETFASTINT (beg, point); XSETFASTINT (beg, PT);
end = operate_on_word (arg, &newpoint); end = operate_on_word (arg, &newpoint);
casify_region (CASE_CAPITALIZE, beg, end); casify_region (CASE_CAPITALIZE, beg, end);
SET_PT (newpoint); SET_PT (newpoint);
......
...@@ -57,7 +57,7 @@ On reaching end of buffer, stop and signal error.") ...@@ -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 hooks, etcetera), that's not a good approach. So we validate the
proposed position, then set point. */ proposed position, then set point. */
{ {
int new_point = point + XINT (n); int new_point = PT + XINT (n);
if (new_point < BEGV) if (new_point < BEGV)
{ {
...@@ -102,7 +102,7 @@ With positive N, a non-empty line at the end counts as one line\n\ ...@@ -102,7 +102,7 @@ With positive N, a non-empty line at the end counts as one line\n\
(n) (n)
Lisp_Object n; Lisp_Object n;
{ {
int pos2 = point; int pos2 = PT;
int pos; int pos;
int count, shortage, negp; int count, shortage, negp;
...@@ -178,17 +178,17 @@ N was explicitly specified.") ...@@ -178,17 +178,17 @@ N was explicitly specified.")
{ {
if (XINT (n) < 0) if (XINT (n) < 0)
{ {
if (point + XINT (n) < BEGV) if (PT + XINT (n) < BEGV)
Fsignal (Qbeginning_of_buffer, Qnil); Fsignal (Qbeginning_of_buffer, Qnil);
else else
del_range (point + XINT (n), point); del_range (PT + XINT (n), PT);
} }
else else
{ {
if (point + XINT (n) > ZV) if (PT + XINT (n) > ZV)
Fsignal (Qend_of_buffer, Qnil); Fsignal (Qend_of_buffer, Qnil);
else else
del_range (point, point + XINT (n)); del_range (PT, PT + XINT (n));
} }
} }
else else
...@@ -216,9 +216,9 @@ N was explicitly specified.") ...@@ -216,9 +216,9 @@ N was explicitly specified.")
/* See if we are about to delete a tab or newline backwards. */ /* See if we are about to delete a tab or newline backwards. */
for (i = 1; i <= XINT (n); i++) for (i = 1; i <= XINT (n); i++)
{ {
if (point - i < BEGV) if (PT - i < BEGV)
break; 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; deleted_special = 1;
break; break;
...@@ -232,10 +232,10 @@ N was explicitly specified.") ...@@ -232,10 +232,10 @@ N was explicitly specified.")
if (XINT (n) > 0 if (XINT (n) > 0
&& ! NILP (current_buffer->overwrite_mode) && ! NILP (current_buffer->overwrite_mode)
&& ! deleted_special && ! deleted_special
&& ! (point == ZV || FETCH_CHAR (point) == '\n')) && ! (PT == ZV || FETCH_CHAR (PT) == '\n'))
{ {
Finsert_char (make_number (' '), XINT (n)); Finsert_char (make_number (' '), XINT (n));
SET_PT (point - XINT (n)); SET_PT (PT - XINT (n));
} }
return value; return value;
...@@ -302,22 +302,22 @@ internal_self_insert (c1, noautofill) ...@@ -302,22 +302,22 @@ internal_self_insert (c1, noautofill)
hairy = 1; hairy = 1;
if (!NILP (overwrite) if (!NILP (overwrite)
&& point < ZV && PT < ZV
&& (EQ (overwrite, Qoverwrite_mode_binary) && (EQ (overwrite, Qoverwrite_mode_binary)
|| (c != '\n' && FETCH_CHAR (point) != '\n')) || (c != '\n' && FETCH_CHAR (PT) != '\n'))
&& (EQ (overwrite, Qoverwrite_mode_binary) && (EQ (overwrite, Qoverwrite_mode_binary)
|| FETCH_CHAR (point) != '\t' || FETCH_CHAR (PT) != '\t'
|| XINT (current_buffer->tab_width) <= 0 || XINT (current_buffer->tab_width) <= 0
|| XFASTINT (current_buffer->tab_width) > 20 || XFASTINT (current_buffer->tab_width) > 20
|| !((current_column () + 1) % XFASTINT (current_buffer->tab_width)))) || !((current_column () + 1) % XFASTINT (current_buffer->tab_width))))
{ {
del_range (point, point + 1); del_range (PT, PT + 1);
hairy = 2; hairy = 2;
} }
if (!NILP (current_buffer->abbrev_mode) if (!NILP (current_buffer->abbrev_mode)
&& SYNTAX (c) != Sword && SYNTAX (c) != Sword
&& NILP (current_buffer->read_only) && NILP (current_buffer->read_only)
&& point > BEGV && SYNTAX (FETCH_CHAR (point - 1)) == Sword) && PT > BEGV && SYNTAX (FETCH_CHAR (PT - 1)) == Sword)
{ {
int modiff = MODIFF; int modiff = MODIFF;
Fexpand_abbrev (); Fexpand_abbrev ();
...@@ -338,10 +338,10 @@ internal_self_insert (c1, noautofill) ...@@ -338,10 +338,10 @@ internal_self_insert (c1, noautofill)
/* After inserting a newline, move to previous line and fill */ /* After inserting a newline, move to previous line and fill */
/* that. Must have the newline in place already so filling and */ /* that. Must have the newline in place already so filling and */
/* justification, if any, know where the end is going to be. */ /* 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); tem = call0 (current_buffer->auto_fill_function);
if (c1 == '\n') if (c1 == '\n')
SET_PT (point + 1); SET_PT (PT + 1);
if (!NILP (tem)) if (!NILP (tem))
hairy = 2; hairy = 2;
} }
......
...@@ -1104,7 +1104,7 @@ direct_output_for_insert (g) ...@@ -1104,7 +1104,7 @@ direct_output_for_insert (g)
At the moment we only lose at end of line or end of buffer At the moment we only lose at end of line or end of buffer
and only with faces that have some background */ and only with faces that have some background */
/* Instead of wasting time, give up if character has any text properties */ /* 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 #endif
/* Give up if w is minibuffer and a message is being displayed there */ /* Give up if w is minibuffer and a message is being displayed there */
...@@ -1117,17 +1117,17 @@ direct_output_for_insert (g) ...@@ -1117,17 +1117,17 @@ direct_output_for_insert (g)
int dummy; int dummy;
if (FRAME_WINDOW_P (frame) || FRAME_MSDOS_P (frame)) 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 #endif
current_frame->glyphs[vpos][hpos] = MAKE_GLYPH (frame, g, face); 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. */ /* 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); adjust_window_charstarts (w, vpos, 1);
} }
unchanged_modified = MODIFF; unchanged_modified = MODIFF;
beg_unchanged = GPT - BEG; beg_unchanged = GPT - BEG;
XSETFASTINT (w->last_point, point); XSETFASTINT (w->last_point, PT);
XSETFASTINT (w->last_point_x, hpos); XSETFASTINT (w->last_point_x, hpos);
XSETFASTINT (w->last_modified, MODIFF); XSETFASTINT (w->last_modified, MODIFF);
...@@ -1179,14 +1179,14 @@ direct_output_forward_char (n) ...@@ -1179,14 +1179,14 @@ direct_output_forward_char (n)
/* Don't use direct output next to an invisible character /* Don't use direct output next to an invisible character
since we might need to do something special. */ since we might need to do something special. */
XSETFASTINT (position, point); XSETFASTINT (position, PT);
if (XFASTINT (position) < ZV if (XFASTINT (position) < ZV
&& ! NILP (Fget_char_property (position, && ! NILP (Fget_char_property (position,
Qinvisible, Qinvisible,
selected_window))) selected_window)))
return 0; return 0;
XSETFASTINT (position, point - 1); XSETFASTINT (position, PT - 1);
if (XFASTINT (position) >= BEGV if (XFASTINT (position) >= BEGV
&& ! NILP (Fget_char_property (position, && ! NILP (Fget_char_property (position,
Qinvisible, Qinvisible,
...@@ -1196,7 +1196,7 @@ direct_output_forward_char (n) ...@@ -1196,7 +1196,7 @@ direct_output_forward_char (n)
FRAME_CURSOR_X (frame) += n; FRAME_CURSOR_X (frame) += n;
XSETFASTINT (w->last_point_x, FRAME_CURSOR_X (frame)); 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)); cursor_to (FRAME_CURSOR_Y (frame), FRAME_CURSOR_X (frame));
fflush (stdout); fflush (stdout);
......
...@@ -178,7 +178,7 @@ Beginning of buffer is position (point-min)") ...@@ -178,7 +178,7 @@ Beginning of buffer is position (point-min)")
() ()
{ {
Lisp_Object temp; Lisp_Object temp;
XSETFASTINT (temp, point); XSETFASTINT (temp, PT);
return temp; return temp;
} }
...@@ -186,7 +186,7 @@ DEFUN ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0, ...@@ -186,7 +186,7 @@ DEFUN ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0,
"Return value of point, as a marker object.") "Return value of point, as a marker object.")
() ()
{ {
return buildmark (point); return buildmark (PT);
} }
int int
...@@ -224,8 +224,8 @@ region_limit (beginningp) ...@@ -224,8 +224,8 @@ region_limit (beginningp)
Fsignal (Qmark_inactive, Qnil); Fsignal (Qmark_inactive, Qnil);
m = Fmarker_position (current_buffer->mark); m = Fmarker_position (current_buffer->mark);
if (NILP (m)) error ("There is no region now"); if (NILP (m)) error ("There is no region now");
if ((point < XFASTINT (m)) == beginningp) if ((PT < XFASTINT (m)) == beginningp)
return (make_number (point)); return (make_number (PT));
else else
return (m); return (m);
} }
...@@ -393,10 +393,10 @@ At the end of the buffer or accessible region, return 0.") ...@@ -393,10 +393,10 @@ At the end of the buffer or accessible region, return 0.")
() ()
{ {
Lisp_Object temp; Lisp_Object temp;
if (point >= ZV) if (PT >= ZV)
XSETFASTINT (temp, 0); XSETFASTINT (temp, 0);
else else
XSETFASTINT (temp, FETCH_CHAR (point)); XSETFASTINT (temp, FETCH_CHAR (PT));
return temp; return temp;
} }
...@@ -406,10 +406,10 @@ At the beginning of the buffer or accessible region, return 0.") ...@@ -406,10 +406,10 @@ At the beginning of the buffer or accessible region, return 0.")
() ()
{ {
Lisp_Object temp; Lisp_Object temp;
if (point <= BEGV) if (PT <= BEGV)
XSETFASTINT (temp, 0); XSETFASTINT (temp, 0);
else else
XSETFASTINT (temp, FETCH_CHAR (point - 1)); XSETFASTINT (temp, FETCH_CHAR (PT - 1));
return temp; return temp;
} }
...@@ -418,7 +418,7 @@ DEFUN ("bobp", Fbobp, Sbobp, 0, 0, 0, ...@@ -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 the buffer is narrowed, this means the beginning of the narrowed part.")
() ()
{ {
if (point == BEGV) if (PT == BEGV)
return Qt; return Qt;
return Qnil; return Qnil;
} }
...@@ -428,7 +428,7 @@ DEFUN ("eobp", Feobp, Seobp, 0, 0, 0, ...@@ -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 the buffer is narrowed, this means the end of the narrowed part.")
() ()
{ {
if (point == ZV) if (PT == ZV)
return Qt; return Qt;
return Qnil; return Qnil;
} }
...@@ -437,7 +437,7 @@ DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0, ...@@ -437,7 +437,7 @@ DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0,
"Return T if point is at the beginning of a line.") "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 Qt;
return Qnil; return Qnil;
} }
...@@ -447,7 +447,7 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0, ...@@ -447,7 +447,7 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0,
`End of a line' includes point being at the end of the buffer.") `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 Qt;
return Qnil; return Qnil;
} }
...@@ -1703,9 +1703,9 @@ or markers) bounding the text that should remain visible.") ...@@ -1703,9 +1703,9 @@ or markers) bounding the text that should remain visible.")
BEGV = XFASTINT (start); BEGV = XFASTINT (start);
SET_BUF_ZV (current_buffer, XFASTINT (end)); SET_BUF_ZV (current_buffer, XFASTINT (end));
if (point < XFASTINT (start)) if (PT < XFASTINT (start))
SET_PT (XFASTINT (start)); SET_PT (XFASTINT (start));
if (point > XFASTINT (end)) if (PT > XFASTINT (end))
SET_PT (XFASTINT (end)); SET_PT (XFASTINT (end));
current_buffer->clip_changed = 1; current_buffer->clip_changed = 1;
/* Changing the buffer bounds invalidates any recorded current column. */ /* Changing the buffer bounds invalidates any recorded current column. */
......
...@@ -283,7 +283,7 @@ current_column () ...@@ -283,7 +283,7 @@ current_column ()
register struct Lisp_Char_Table *dp = buffer_display_table (); register struct Lisp_Char_Table *dp = buffer_display_table ();
int stopchar; int stopchar;
if (point == last_known_column_point if (PT == last_known_column_point
&& MODIFF == last_known_column_modified) && MODIFF == last_known_column_modified)
return last_known_column; return last_known_column;
...@@ -292,18 +292,18 @@ current_column () ...@@ -292,18 +292,18 @@ current_column ()
if (BUF_INTERVALS (current_buffer) if (BUF_INTERVALS (current_buffer)
|| !NILP (current_buffer->overlays_before) || !NILP (current_buffer->overlays_before)
|| !NILP (current_buffer->overlays_after)) || !NILP (current_buffer->overlays_after))
return current_column_1 (point); return current_column_1 (PT);
/* Scan backwards from point to the previous newline, /* Scan backwards from point to the previous newline,
counting width. Tab characters are the only complicated case. */ counting width. Tab characters are the only complicated case. */
/* Make a pointer for decrementing through the chars before point. */ /* 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, /* Make a pointer to where consecutive chars leave off,
going backwards from point. */ going backwards from point. */
if (point == BEGV) if (PT == BEGV)
stop = ptr; stop = ptr;
else if (point <= GPT || BEGV > GPT) else if (PT <= GPT || BEGV > GPT)
stop = BEGV_ADDR; stop = BEGV_ADDR;
else else
stop = GAP_END_ADDR; stop = GAP_END_ADDR;
...@@ -356,7 +356,7 @@ current_column () ...@@ -356,7 +356,7 @@ current_column ()
} }
last_known_column = col; last_known_column = col;
last_known_column_point = point; last_known_column_point = PT;
last_known_column_modified = MODIFF; last_known_column_modified = MODIFF;