Mercurial > emacs
comparison src/search.c @ 26985:1121a5da20a5
(looking_at_1): Reset immediate_quit before modifying
global data.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sat, 25 Dec 1999 12:55:46 +0000 |
parents | 3527c131b069 |
children | 5cd59d1800ad |
comparison
equal
deleted
inserted
replaced
26984:34455eeaf747 | 26985:1121a5da20a5 |
---|---|
306 re_match_object = Qnil; | 306 re_match_object = Qnil; |
307 | 307 |
308 i = re_match_2 (bufp, (char *) p1, s1, (char *) p2, s2, | 308 i = re_match_2 (bufp, (char *) p1, s1, (char *) p2, s2, |
309 PT_BYTE - BEGV_BYTE, &search_regs, | 309 PT_BYTE - BEGV_BYTE, &search_regs, |
310 ZV_BYTE - BEGV_BYTE); | 310 ZV_BYTE - BEGV_BYTE); |
311 immediate_quit = 0; | |
312 | |
311 if (i == -2) | 313 if (i == -2) |
312 matcher_overflow (); | 314 matcher_overflow (); |
313 | 315 |
314 val = (0 <= i ? Qt : Qnil); | 316 val = (0 <= i ? Qt : Qnil); |
315 if (i >= 0) | 317 if (i >= 0) |
320 = BYTE_TO_CHAR (search_regs.start[i] + BEGV_BYTE); | 322 = BYTE_TO_CHAR (search_regs.start[i] + BEGV_BYTE); |
321 search_regs.end[i] | 323 search_regs.end[i] |
322 = BYTE_TO_CHAR (search_regs.end[i] + BEGV_BYTE); | 324 = BYTE_TO_CHAR (search_regs.end[i] + BEGV_BYTE); |
323 } | 325 } |
324 XSETBUFFER (last_thing_searched, current_buffer); | 326 XSETBUFFER (last_thing_searched, current_buffer); |
325 immediate_quit = 0; | |
326 return val; | 327 return val; |
327 } | 328 } |
328 | 329 |
329 DEFUN ("looking-at", Flooking_at, Slooking_at, 1, 1, 0, | 330 DEFUN ("looking-at", Flooking_at, Slooking_at, 1, 1, 0, |
330 "Return t if text after point matches regular expression REGEXP.\n\ | 331 "Return t if text after point matches regular expression REGEXP.\n\ |