Mercurial > emacs
comparison src/process.c @ 16728:309a750fd5c0
(read_process_output, exec_sentinel):
Call Fmatch_data with new explicit arguments.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Dec 1996 06:41:48 +0000 |
| parents | ea26040865cb |
| children | e9dc2569cb12 |
comparison
equal
deleted
inserted
replaced
| 16727:45d9891b03b2 | 16728:309a750fd5c0 |
|---|---|
| 2528 save the same match data in safely recursive fashion. */ | 2528 save the same match data in safely recursive fashion. */ |
| 2529 if (outer_running_asynch_code) | 2529 if (outer_running_asynch_code) |
| 2530 { | 2530 { |
| 2531 Lisp_Object tem; | 2531 Lisp_Object tem; |
| 2532 /* Don't clobber the CURRENT match data, either! */ | 2532 /* Don't clobber the CURRENT match data, either! */ |
| 2533 tem = Fmatch_data (); | 2533 tem = Fmatch_data (Qnil, Qnil); |
| 2534 restore_match_data (); | 2534 restore_match_data (); |
| 2535 record_unwind_protect (Fstore_match_data, Fmatch_data ()); | 2535 record_unwind_protect (Fstore_match_data, Fmatch_data (Qnil, Qnil)); |
| 2536 Fstore_match_data (tem); | 2536 Fstore_match_data (tem); |
| 2537 } | 2537 } |
| 2538 | 2538 |
| 2539 /* For speed, if a search happens within this code, | 2539 /* For speed, if a search happens within this code, |
| 2540 save the match data in a special nonrecursive fashion. */ | 2540 save the match data in a special nonrecursive fashion. */ |
| 3560 and we already saved the match data nonrecursively, | 3560 and we already saved the match data nonrecursively, |
| 3561 save the same match data in safely recursive fashion. */ | 3561 save the same match data in safely recursive fashion. */ |
| 3562 if (outer_running_asynch_code) | 3562 if (outer_running_asynch_code) |
| 3563 { | 3563 { |
| 3564 Lisp_Object tem; | 3564 Lisp_Object tem; |
| 3565 tem = Fmatch_data (); | 3565 tem = Fmatch_data (Qnil, Qnil); |
| 3566 restore_match_data (); | 3566 restore_match_data (); |
| 3567 record_unwind_protect (Fstore_match_data, Fmatch_data ()); | 3567 record_unwind_protect (Fstore_match_data, Fmatch_data (Qnil, Qnil)); |
| 3568 Fstore_match_data (tem); | 3568 Fstore_match_data (tem); |
| 3569 } | 3569 } |
| 3570 | 3570 |
| 3571 /* For speed, if a search happens within this code, | 3571 /* For speed, if a search happens within this code, |
| 3572 save the match data in a special nonrecursive fashion. */ | 3572 save the match data in a special nonrecursive fashion. */ |