mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-12 22:40:46 -08:00
Code Issues Projects Releases Wiki Activity

(try_window): Don't pass window to Fget_char_property; pass its buffer.

Browse source 
(display_text_line): Likewise.
This commit is contained in:
Roland McGrath 1994-11-16 16:57:31 +00:00
parent 0694d58c7f
commit 58fcaaf175
1 changed files with 15 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/xdisp.c
View file

@ -1447,15 +1447,19 @@ try_window (window, pos)
if (val.vpos) tab_offset = 0;
vpos++;
if (pos != val.bufpos)
last_text_vpos
/* Next line, unless prev line ended in end of buffer with no cr */
= vpos - (val.vpos && (FETCH_CHAR (val.bufpos - 1) != '\n'
{
last_text_vpos = vpos;
/* Next line, unless prev line ended in end of buffer with no cr. */
if (val.vpos && (FETCH_CHAR (val.bufpos - 1) != '\n'
#ifdef USE_TEXT_PROPERTIES
|| ! NILP (Fget_char_property (val.bufpos-1,
Qinvisible,
window))
|| ! NILP (Fget_char_property
(val.bufpos-1,
Qinvisible,
XWINDOW (window)->buffer))
#endif
));
))
--last_text_vpos;
}
pos = val.bufpos;
}
@ -2252,17 +2256,17 @@ display_text_line (w, start, vpos, hpos, taboffset)
the next property change */
while (pos == next_invisible && pos < end)
{
Lisp_Object position, limit, endpos, prop, ww;
Lisp_Object position, limit, endpos, prop;
XSETFASTINT (position, pos);
XSETWINDOW (ww, w);
prop = Fget_char_property (position, Qinvisible, ww);
prop = Fget_char_property (position, Qinvisible, w->buffer);
/* This is just an estimate to give reasonable
performance; nothing should go wrong if it is too small. */
limit = Fnext_overlay_change (position);
if (XFASTINT (limit) > pos + 50)
XSETFASTINT (limit, pos + 50);
endpos = Fnext_single_property_change (position, Qinvisible,
Fcurrent_buffer (), limit);
Fcurrent_buffer (),
limit);
if (INTEGERP (endpos))
next_invisible = XINT (endpos);
else