diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-20 17:04:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-20 17:04:16 +0000 |
| commit | 4929a8780a8d6a475e7b0294dc4eb32fb6a31c07 (patch) | |
| tree | 4d11ea8d6dfe555b0d025a6320ccb0f50dcc726d | |
| parent | 25d014c749f696b0098936a934d6de914d3774a4 (diff) | |
| download | emacs-4929a8780a8d6a475e7b0294dc4eb32fb6a31c07.tar.gz emacs-4929a8780a8d6a475e7b0294dc4eb32fb6a31c07.tar.bz2 emacs-4929a8780a8d6a475e7b0294dc4eb32fb6a31c07.zip | |
(Fgarbage_collect): Don't truncate command-history here.
| -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; extern int __malloc_extra_blocks; #endif /* !defined(DOUG_LEA_MALLOC) */ -extern Lisp_Object Vhistory_length; - #define max(A,B) ((A) > (B) ? (A) : (B)) #define min(A,B) ((A) < (B) ? (A) : (B)) @@ -1728,15 +1726,7 @@ Garbage collection happens automatically if you cons more than\n\ if (garbage_collection_messages) message1_nolog ("Garbage collecting..."); - /* Don't keep command history around forever. */ - if (NUMBERP (Vhistory_length) && XINT (Vhistory_length) > 0) - { - tem = Fnthcdr (Vhistory_length, Vcommand_history); - if (CONSP (tem)) - XCONS (tem)->cdr = Qnil; - } - - /* Likewise for undo information. */ + /* Don't keep undo information around forever. */ { register struct buffer *nextb = all_buffers; |