Mercurial > emacs
changeset 5756:a54c236b43c6
(scan_buffer): New arg ALLOW_QUIT.
(find_next_newline): Pass new arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 03 Feb 1994 05:06:01 +0000 |
| parents | 5b77773166f7 |
| children | a2346a4ebfe2 |
| files | src/search.c |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/search.c Thu Feb 03 05:05:42 1994 +0000 +++ b/src/search.c Thu Feb 03 05:06:01 1994 +0000 @@ -263,11 +263,15 @@ If we don't find COUNT instances before reaching the end of the buffer (or the beginning, if scanning backwards), set *SHORTAGE to the number of TARGETs left unfound, and return the end of the - buffer we bumped up against. */ + buffer we bumped up against. -scan_buffer (target, start, count, shortage) + If ALLOW_QUIT is non-zero, set immediate_quit. That's good to do + except when inside redisplay. */ + +scan_buffer (target, start, count, shortage, allow_quit) int *shortage, start; register int count, target; + int allow_quit; { int limit = ((count > 0) ? ZV - 1 : BEGV); int direction = ((count > 0) ? 1 : -1); @@ -281,7 +285,7 @@ if (shortage != 0) *shortage = 0; - immediate_quit = 1; + immediate_quit = allow_quit; if (count > 0) while (start != limit + 1) @@ -348,7 +352,7 @@ find_next_newline (from, cnt) register int from, cnt; { - return (scan_buffer ('\n', from, cnt, (int *) 0)); + return scan_buffer ('\n', from, cnt, (int *) 0, 1); } Lisp_Object skip_chars ();