diff options
| author | Richard M. Stallman | 1998-04-20 17:04:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-04-20 17:04:16 +0000 |
| commit | 4929a8780a8d6a475e7b0294dc4eb32fb6a31c07 (patch) | |
| tree | 4d11ea8d6dfe555b0d025a6320ccb0f50dcc726d /src/alloc.c | |
| parent | 25d014c749f696b0098936a934d6de914d3774a4 (diff) | |
| download | emacs-4929a8780a8d6a475e7b0294dc4eb32fb6a31c07.tar.gz emacs-4929a8780a8d6a475e7b0294dc4eb32fb6a31c07.zip | |
(Fgarbage_collect): Don't truncate command-history here.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/alloc.c b/src/alloc.c index 6948ff1a3d8..b41af98ac4f 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -55,8 +55,6 @@ extern __malloc_size_t _bytes_used; | |||
| 55 | extern int __malloc_extra_blocks; | 55 | extern int __malloc_extra_blocks; |
| 56 | #endif /* !defined(DOUG_LEA_MALLOC) */ | 56 | #endif /* !defined(DOUG_LEA_MALLOC) */ |
| 57 | 57 | ||
| 58 | extern Lisp_Object Vhistory_length; | ||
| 59 | |||
| 60 | #define max(A,B) ((A) > (B) ? (A) : (B)) | 58 | #define max(A,B) ((A) > (B) ? (A) : (B)) |
| 61 | #define min(A,B) ((A) < (B) ? (A) : (B)) | 59 | #define min(A,B) ((A) < (B) ? (A) : (B)) |
| 62 | 60 | ||
| @@ -1728,15 +1726,7 @@ Garbage collection happens automatically if you cons more than\n\ | |||
| 1728 | if (garbage_collection_messages) | 1726 | if (garbage_collection_messages) |
| 1729 | message1_nolog ("Garbage collecting..."); | 1727 | message1_nolog ("Garbage collecting..."); |
| 1730 | 1728 | ||
| 1731 | /* Don't keep command history around forever. */ | 1729 | /* Don't keep undo information around forever. */ |
| 1732 | if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) | ||
| 1733 | { | ||
| 1734 | tem = Fnthcdr (Vhistory_length, Vcommand_history); | ||
| 1735 | if (CONSP (tem)) | ||
| 1736 | XCONS (tem)->cdr = Qnil; | ||
| 1737 | } | ||
| 1738 | |||
| 1739 | /* Likewise for undo information. */ | ||
| 1740 | { | 1730 | { |
| 1741 | register struct buffer *nextb = all_buffers; | 1731 | register struct buffer *nextb = all_buffers; |
| 1742 | 1732 | ||