diff options
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index 350fec25a02..0ed5b9346f6 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -6122,11 +6122,13 @@ garbage_collect (void) | |||
| 6122 | 6122 | ||
| 6123 | gc_in_progress = 0; | 6123 | gc_in_progress = 0; |
| 6124 | 6124 | ||
| 6125 | unblock_input (); | ||
| 6126 | |||
| 6127 | consing_until_gc = gc_threshold | 6125 | consing_until_gc = gc_threshold |
| 6128 | = consing_threshold (gc_cons_threshold, Vgc_cons_percentage, 0); | 6126 | = consing_threshold (gc_cons_threshold, Vgc_cons_percentage, 0); |
| 6129 | 6127 | ||
| 6128 | /* Unblock *after* re-setting `consing_until_gc` in case `unblock_input` | ||
| 6129 | signals an error (see bug#43389). */ | ||
| 6130 | unblock_input (); | ||
| 6131 | |||
| 6130 | if (garbage_collection_messages && NILP (Vmemory_full)) | 6132 | if (garbage_collection_messages && NILP (Vmemory_full)) |
| 6131 | { | 6133 | { |
| 6132 | if (message_p || minibuf_level > 0) | 6134 | if (message_p || minibuf_level > 0) |