changeset 6066:4ff0c5c05867

(try_window, display_text_line): Use Fget_char_property to test for invisibility.
author Karl Heuer <kwzh@gnu.org>
date Thu, 24 Feb 1994 20:00:34 +0000
parents ab1aef4b0e07
children 25c4f2fe81d1
files src/xdisp.c
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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;