From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 21 Apr 1996 05:56:01 +0000 (+0000)
Subject: (compute_motion): Pass window to Fget_char_property.
X-Git-Tag: emacs-19.34~802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e4358041c991f4f0aba27313793829f38a31dcd;p=emacs.git

(compute_motion): Pass window to Fget_char_property.
---

diff --git a/src/indent.c b/src/indent.c
index eb598424ff5..aa3f855344e 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -676,8 +676,10 @@ compute_motion (from, fromvpos, fromhpos, did_motion, to, tovpos, tohpos, width,
 
   /* The next buffer pos where we should consult the width run cache. */
   int next_width_run = from;
+  Lisp_Object window;
 
   XSETBUFFER (buffer, current_buffer);
+  XSETWINDOW (window, win);
 
   width_run_cache_on_off ();
   if (dp == buffer_display_table ())
@@ -747,8 +749,7 @@ compute_motion (from, fromvpos, fromhpos, did_motion, to, tovpos, tohpos, width,
 	      }
 	    /* if the `invisible' property is set, we can skip to
 	       the next property change */
-	    prop = Fget_char_property (position, Qinvisible,
-				       Fcurrent_buffer ());
+	    prop = Fget_char_property (position, Qinvisible, window);
 	    if (TEXT_PROP_MEANS_INVISIBLE (prop))
 	      pos = next_boundary;
 	  }