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\ |