[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: next-line screws up column at the EOL
From: |
Stefan Monnier |
Subject: |
Re: next-line screws up column at the EOL |
Date: |
Thu, 27 Sep 2007 14:25:45 -0400 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/23.0.50 (gnu/linux) |
>> I cannot reproduce your problem. Can you give a recipe starting from
>> "emacs -Q"? My guess is that some code somewhere uses "column + 1"
>> so the most-positive-fixnum causes a wraparound, but I can't find
>> the relevant code.
> For me, in a 64-bit Emacs
> (move-to-column most-positive-fixnum)
Does the patch below fix the problem?
Stefan
--- indent.c 29 aoĆ» 2007 22:33:12 -0400 1.195
+++ indent.c 27 sep 2007 14:22:46 -0400
@@ -932,19 +932,19 @@
(column, force)
Lisp_Object column, force;
{
- register int pos;
- register int col = current_column ();
- register int goal;
- register int end;
+ register EMACS_INT pos;
+ register EMACS_INT col = current_column ();
+ register EMACS_INT goal;
+ register EMACS_INT end;
register int tab_width = XINT (current_buffer->tab_width);
register int ctl_arrow = !NILP (current_buffer->ctl_arrow);
register struct Lisp_Char_Table *dp = buffer_display_table ();
register int multibyte = !NILP (current_buffer->enable_multibyte_characters);
Lisp_Object val;
- int prev_col = 0;
+ EMACS_INT prev_col = 0;
int c = 0;
- int next_boundary, pos_byte;
+ EMACS_INT next_boundary, pos_byte;
if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
CHECK_NATNUM (column);
@@ -970,7 +970,7 @@
{
while (pos == next_boundary)
{
- int prev = pos;
+ EMACS_INT prev = pos;
pos = skip_invisible (pos, &next_boundary, end, Qnil);
if (pos != prev)
pos_byte = CHAR_TO_BYTE (pos);
@@ -1090,7 +1090,7 @@
and scan through it again. */
if (!NILP (force) && col > goal && c == '\t' && prev_col < goal)
{
- int goal_pt, goal_pt_byte;
+ EMACS_INT goal_pt, goal_pt_byte;
/* Insert spaces in front of the tab to reach GOAL. Do this
first so that a marker at the end of the tab gets