Mercurial > emacs
comparison src/alloc.c @ 23534:6f9c70db3a58
(Fgarbage_collect): Block input around most of the function.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 22 Oct 1998 01:53:38 +0000 |
| parents | f7d2bdefcff7 |
| children | 7094b74ce0a6 |
comparison
equal
deleted
inserted
replaced
| 23533:10a3478e3432 | 23534:6f9c70db3a58 |
|---|---|
| 1727 } | 1727 } |
| 1728 #endif /* MAX_SAVE_STACK > 0 */ | 1728 #endif /* MAX_SAVE_STACK > 0 */ |
| 1729 | 1729 |
| 1730 if (garbage_collection_messages) | 1730 if (garbage_collection_messages) |
| 1731 message1_nolog ("Garbage collecting..."); | 1731 message1_nolog ("Garbage collecting..."); |
| 1732 | |
| 1733 BLOCK_INPUT; | |
| 1732 | 1734 |
| 1733 shrink_regexp_cache (); | 1735 shrink_regexp_cache (); |
| 1734 | 1736 |
| 1735 /* Don't keep undo information around forever. */ | 1737 /* Don't keep undo information around forever. */ |
| 1736 { | 1738 { |
| 1870 for (; i >= 0; i--) | 1872 for (; i >= 0; i--) |
| 1871 XUNMARK (backlist->args[i]); | 1873 XUNMARK (backlist->args[i]); |
| 1872 } | 1874 } |
| 1873 XUNMARK (buffer_defaults.name); | 1875 XUNMARK (buffer_defaults.name); |
| 1874 XUNMARK (buffer_local_symbols.name); | 1876 XUNMARK (buffer_local_symbols.name); |
| 1877 | |
| 1878 UNBLOCK_INPUT; | |
| 1875 | 1879 |
| 1876 /* clear_marks (); */ | 1880 /* clear_marks (); */ |
| 1877 gc_in_progress = 0; | 1881 gc_in_progress = 0; |
| 1878 | 1882 |
| 1879 consing_since_gc = 0; | 1883 consing_since_gc = 0; |