changeset 10538:48c620ae0853

(compute_motion): Don't get hung in selective-display loop.

--- a/src/indent.c	Tue Jan 24 06:33:41 1995 +0000
+++ b/src/indent.c	Tue Jan 24 07:01:08 1995 +0000
@@ -1,5 +1,5 @@
 /* Indentation functions.
-   Copyright (C) 1985,86,87,88,93,94 Free Software Foundation, Inc.
+   Copyright (C) 1985,86,87,88,93,94,95 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -121,7 +121,7 @@
       return 0;
 
   return 1;
-}  
+}
 
 /* Recompute BUF's width table, using the display table DISPTAB.  */
 void
@@ -161,7 +161,7 @@
     {
       /* It should be on.  */
       if (current_buffer->width_run_cache == 0)
-        { 
+        {
           current_buffer->width_run_cache = new_region_cache ();
           recompute_width_table (current_buffer, buffer_display_table ());
         }
@@ -347,9 +347,9 @@
   register int tab_width = XINT (current_buffer->tab_width);
   register unsigned char *p;
   register unsigned char *stop;
-  
+
   if (tab_width <= 0 || tab_width > 1000) tab_width = 8;
-  
+
   stop = &FETCH_CHAR (BUFFER_CEILING_OF (pos)) + 1;
   p = &FETCH_CHAR (pos);
   while (1)
@@ -527,7 +527,7 @@
    and the window's upper-left coordinates as FROMVPOS and FROMHPOS.
    Pass the buffer's ZV as TO, to limit the scan to the end of the
    visible section of the buffer, and pass LINE and COL as TOVPOS and
-   TOHPOS.  
+   TOHPOS.
 
    When displaying in window w, a typical formula for WIDTH is:
 
@@ -581,7 +581,7 @@
 
   /* For computing runs of characters with similar widths.
      Invariant: width_run_width is zero, or all the characters
-     from width_run_start to width_run_end have a fixed width of 
+     from width_run_start to width_run_end have a fixed width of
      width_run_width.  */
   int width_run_start = from;
   int width_run_end   = from;
@@ -675,7 +675,7 @@
                   run_end      = pos + (tohpos - hpos) / common_width;
                   run_end_hpos = hpos + (run_end - pos) * common_width;
                 }
-            
+
               /* Don't go past the margin.  */
               if (run_end_hpos >= width)
                 {
@@ -712,13 +712,13 @@
               else
                 {
                   /* Have we accumulated a run to put in the cache?
-                     (Currently, we only cache runs of width == 1.  */
+                     (Currently, we only cache runs of width == 1).  */
                   if (width_run_start < width_run_end
                       && width_run_width == 1)
                     know_region_cache (current_buffer,
                                        current_buffer->width_run_cache,
                                        width_run_start, width_run_end);
-              
+
                   /* Start recording a new width run.  */
                   width_run_width = width_table[c];
                   width_run_start = pos - 1;
@@ -745,7 +745,7 @@
                 {
                   /* Skip any number of invisible lines all at once */
                   do
-                    pos = find_before_next_newline (pos, to, 1);
+                    pos = find_before_next_newline (pos, to, 1) + 1;
                   while (pos < to
                          && indented_beyond_p (pos, selective));
                   /* Allow for the " ..." that is displayed for them. */
@@ -755,6 +755,7 @@
                       if (hpos >= width)
                         hpos = width;
                     }
+		  --pos;
                   /* We have skipped the invis text, but not the
                      newline after.  */
                 }
@@ -990,7 +991,7 @@
  retry:
   if (vtarget > vpos)
     {
-      /* Moving downward is simple, but must calculate from beg of line 
+      /* Moving downward is simple, but must calculate from beg of line
 	 to determine hpos of starting point */
       if (from > BEGV && FETCH_CHAR (from - 1) != '\n')
 	{
@@ -1070,7 +1071,7 @@
       val_vmotion.prevhpos = 0;
       return &val_vmotion;
     }
-  
+
   /* Otherwise find the correct spot by moving down */
   goto retry;
 }