# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 762120073 0
# Node ID 25c4f2fe81d173c822e61fe5f001c14b59f0ade6
# Parent  4ff0c5c05867ceb25e5fd00aa980a9a71e7cbeaa
(compute_motion, vmotion): Use Fget_char_property to test for invisibility.

diff -r 4ff0c5c05867 -r 25c4f2fe81d1 src/indent.c
--- a/src/indent.c	Thu Feb 24 20:00:34 1994 +0000
+++ b/src/indent.c	Thu Feb 24 20:01:13 1994 +0000
@@ -474,7 +474,7 @@
       while (pos == next_invisible && pos < to)
 	{
 	  XFASTINT (position) = pos;
-	  prop = Fget_text_property (position,
+	  prop = Fget_char_property (position,
 				     Qinvisible,
 				     Fcurrent_buffer ());
 	  {
@@ -663,9 +663,9 @@
 		      && indented_beyond_p (prevline, selective))
 #ifdef USE_TEXT_PROPERTIES
 		     /* watch out for newlines with `invisible' property */
-		     || ! NILP (Fget_text_property (XFASTINT (prevline),
+		     || ! NILP (Fget_char_property (XFASTINT (prevline),
 						    Qinvisible,
-						    Fcurrent_buffer ()))
+						    window))
 #endif
 		 ))
 	    prevline = find_next_newline (prevline - 1, -1);
@@ -700,9 +700,9 @@
 		   || ! indented_beyond_p (prevline, selective))
 #ifdef USE_TEXT_PROPERTIES
 		  /* watch out for newlines with `invisible' property */
-		  && NILP (Fget_text_property (XFASTINT (prevline),
+		  && NILP (Fget_char_property (XFASTINT (prevline),
 					       Qinvisible,
-					       Fcurrent_buffer ()))
+					       window))
 #endif
 		  ))
 	    break;