# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762120034 0
# Node ID 4ff0c5c05867ceb25e5fd00aa980a9a71e7cbeaa
# Parent  ab1aef4b0e075853952ae140f3bd914fe1b0a76a
(try_window, display_text_line): Use Fget_char_property to test for invisibility.

diff -r ab1aef4b0e07 -r 4ff0c5c05867 src/xdisp.c
--- a/src/xdisp.c	Thu Feb 24 19:42:35 1994 +0000
+++ b/src/xdisp.c	Thu Feb 24 20:00:34 1994 +0000
@@ -1369,9 +1369,9 @@
 	  /* 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 @@
 	     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;