From 3ae8ced7cb508d0b2958f78a9a47be9215bfe76b Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 24 Feb 1994 20:00:34 +0000 Subject: [PATCH] (try_window, display_text_line): Use Fget_char_property to test for invisibility. --- src/xdisp.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/xdisp.c b/src/xdisp.c index f109060287c..da7af7d5b73 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -1369,9 +1369,9 @@ try_window (window, pos) /* Next line, unless prev line ended in end of buffer with no cr */ = vpos - (val.vpos && (FETCH_CHAR (val.bufpos - 1) != '\n' #ifdef USE_TEXT_PROPERTIES - || ! NILP (Fget_text_property (val.bufpos-1, + || ! NILP (Fget_char_property (val.bufpos-1, Qinvisible, - Fcurrent_buffer ())) + window)) #endif )); pos = val.bufpos; @@ -2056,10 +2056,10 @@ display_text_line (w, start, vpos, hpos, taboffset) the next property change */ while (pos == next_invisible && pos < end) { - Lisp_Object position, limit, endpos, prop; + Lisp_Object position, limit, endpos, prop, ww; XFASTINT (position) = pos; - prop = Fget_text_property (position, Qinvisible, - Fcurrent_buffer ()); + XSET (ww, Lisp_Window, w); + prop = Fget_char_property (position, Qinvisible, ww); /* This is just an estimate to give reasonable performance; nothing should go wrong if it is too small. */ XFASTINT (limit) = pos + 50; -- 2.39.5