# HG changeset patch # User Karl Heuer # Date 790930868 0 # Node ID 48c620ae085330785ec064543373f6acccabffc2 # Parent 380605821cc9171c76d83c76cc6a25c3409b97d2 (compute_motion): Don't get hung in selective-display loop. diff -r 380605821cc9 -r 48c620ae0853 src/indent.c --- 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; }