Mercurial > emacs
comparison src/alloc.c @ 648:70b112526394
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Mon, 18 May 1992 08:14:41 +0000 |
parents | 40b255f55df3 |
children | 540b047ece4d |
comparison
equal
deleted
inserted
replaced
647:529171c8b71c | 648:70b112526394 |
---|---|
1075 | 1075 |
1076 /* Don't keep command history around forever */ | 1076 /* Don't keep command history around forever */ |
1077 tem = Fnthcdr (make_number (30), Vcommand_history); | 1077 tem = Fnthcdr (make_number (30), Vcommand_history); |
1078 if (CONSP (tem)) | 1078 if (CONSP (tem)) |
1079 XCONS (tem)->cdr = Qnil; | 1079 XCONS (tem)->cdr = Qnil; |
1080 | |
1080 /* Likewise for undo information. */ | 1081 /* Likewise for undo information. */ |
1081 { | 1082 { |
1082 register struct buffer *nextb = all_buffers; | 1083 register struct buffer *nextb = all_buffers; |
1083 | 1084 |
1084 while (nextb) | 1085 while (nextb) |
1085 { | 1086 { |
1086 nextb->undo_list | 1087 /* If a buffer's undo list is Qt, that means that undo is |
1087 = truncate_undo_list (nextb->undo_list, undo_threshold, | 1088 turned off in that buffer. Calling truncate_undo_list on |
1088 undo_high_threshold); | 1089 Qt tends to return NULL, which effectively turns undo back on. |
1090 So don't call truncate_undo_list if undo_list is Qt. */ | |
1091 if (! EQ (nextb->undo_list, Qt)) | |
1092 nextb->undo_list | |
1093 = truncate_undo_list (nextb->undo_list, undo_threshold, | |
1094 undo_high_threshold); | |
1089 nextb = nextb->next; | 1095 nextb = nextb->next; |
1090 } | 1096 } |
1091 } | 1097 } |
1092 | 1098 |
1093 gc_in_progress = 1; | 1099 gc_in_progress = 1; |