procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Three final fixes to last changes

Browse source 
* src/xdisp.c (get_nearby_bol_pos): Initialize 'bol' to BEGV - 1
instead of 0 (which fixes cursor motion commands in the presence
of a narrowing), adapt the return condition accordingly, and do
not restart the loop when BEGV has been reached.
(get_small_narrowing_begv): Use correct type.
This commit is contained in:
Gregory Heytings 2023-04-01 21:13:08 +00:00
parent 097c5ee8f5
commit 0cc8d6826a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/xdisp.c
View file

@ -3616,7 +3616,7 @@ get_medium_narrowing_zv (struct window *w, ptrdiff_t pos)
static ptrdiff_t
get_nearby_bol_pos (ptrdiff_t pos)
{
ptrdiff_t start, pos_bytepos, cur, next, found, bol = 0;
ptrdiff_t start, pos_bytepos, cur, next, found, bol = BEGV - 1;
int dist;
for (dist = 500; dist <= 500000; dist *= 10)
{
@ -3632,7 +3632,7 @@ get_nearby_bol_pos (ptrdiff_t pos)
else
break;
}
if (bol)
if (bol >= BEGV || start == BEGV)
return bol;
else
pos = pos - dist < BEGV ? BEGV : pos - dist;
@ -3644,7 +3644,7 @@ ptrdiff_t
get_small_narrowing_begv (struct window *w, ptrdiff_t pos)
{
int len = get_narrowed_width (w);
int bol_pos = get_nearby_bol_pos (pos);
ptrdiff_t bol_pos = get_nearby_bol_pos (pos);
return max (bol_pos + ((pos - bol_pos) / len - 1) * len, BEGV);
}