aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorRichard M. Stallman1998-04-20 17:04:16 +0000
committerRichard M. Stallman1998-04-20 17:04:16 +0000
commit4929a8780a8d6a475e7b0294dc4eb32fb6a31c07 (patch)
tree4d11ea8d6dfe555b0d025a6320ccb0f50dcc726d /src/alloc.c
parent25d014c749f696b0098936a934d6de914d3774a4 (diff)
downloademacs-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.c12
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;
55extern int __malloc_extra_blocks; 55extern int __malloc_extra_blocks;
56#endif /* !defined(DOUG_LEA_MALLOC) */ 56#endif /* !defined(DOUG_LEA_MALLOC) */
57 57
58extern 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