aboutsummaryrefslogtreecommitdiffstats
path: root/src/alloc.c
diff options
context:
space:
mode:
authorJim Blandy1992-07-13 19:54:34 +0000
committerJim Blandy1992-07-13 19:54:34 +0000
commit502b9b6441d9c3ce0fdc5f671447f30f11fb5afb (patch)
treec053def82b81e846727ee840df463599703232ef /src/alloc.c
parent1cbd5d9dc53c354c837c568a9da8fd180eed4d89 (diff)
downloademacs-502b9b6441d9c3ce0fdc5f671447f30f11fb5afb.tar.gz
emacs-502b9b6441d9c3ce0fdc5f671447f30f11fb5afb.zip
entered into RCS
Diffstat (limited to 'src/alloc.c')
-rw-r--r--src/alloc.c38
1 files changed, 19 insertions, 19 deletions
diff --git a/src/alloc.c b/src/alloc.c
index c0d92e33802..ee2f2aff28b 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -24,9 +24,9 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
24#ifndef standalone 24#ifndef standalone
25#include "buffer.h" 25#include "buffer.h"
26#include "window.h" 26#include "window.h"
27#ifdef MULTI_SCREEN 27#ifdef MULTI_FRAME
28#include "screen.h" 28#include "frame.h"
29#endif /* MULTI_SCREEN */ 29#endif /* MULTI_FRAME */
30#endif 30#endif
31 31
32#include "syssignal.h" 32#include "syssignal.h"
@@ -68,9 +68,9 @@ extern
68#endif /* VIRT_ADDR_VARIES */ 68#endif /* VIRT_ADDR_VARIES */
69 int malloc_sbrk_unused; 69 int malloc_sbrk_unused;
70 70
71/* Two thresholds controlling how much undo information to keep. */ 71/* Two limits controlling how much undo information to keep. */
72int undo_threshold; 72int undo_limit;
73int undo_high_threshold; 73int undo_strong_limit;
74 74
75/* Non-nil means defun should do purecopy on the function definition */ 75/* Non-nil means defun should do purecopy on the function definition */
76Lisp_Object Vpurify_flag; 76Lisp_Object Vpurify_flag;
@@ -1090,8 +1090,8 @@ Garbage collection happens automatically if you cons more than\n\
1090 So don't call truncate_undo_list if undo_list is Qt. */ 1090 So don't call truncate_undo_list if undo_list is Qt. */
1091 if (! EQ (nextb->undo_list, Qt)) 1091 if (! EQ (nextb->undo_list, Qt))
1092 nextb->undo_list 1092 nextb->undo_list
1093 = truncate_undo_list (nextb->undo_list, undo_threshold, 1093 = truncate_undo_list (nextb->undo_list, undo_limit,
1094 undo_high_threshold); 1094 undo_strong_limit);
1095 nextb = nextb->next; 1095 nextb = nextb->next;
1096 } 1096 }
1097 } 1097 }
@@ -1344,10 +1344,10 @@ mark_object (objptr)
1344 } 1344 }
1345 break; 1345 break;
1346 1346
1347#ifdef MULTI_SCREEN 1347#ifdef MULTI_FRAME
1348 case Lisp_Screen: 1348 case Lisp_Frame:
1349 { 1349 {
1350 register struct screen *ptr = XSCREEN (obj); 1350 register struct frame *ptr = XFRAME (obj);
1351 register int size = ptr->size; 1351 register int size = ptr->size;
1352 register int i; 1352 register int i;
1353 1353
@@ -1355,7 +1355,7 @@ mark_object (objptr)
1355 ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */ 1355 ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
1356 1356
1357 mark_object (&ptr->name); 1357 mark_object (&ptr->name);
1358 mark_object (&ptr->focus_screen); 1358 mark_object (&ptr->focus_frame);
1359 mark_object (&ptr->width); 1359 mark_object (&ptr->width);
1360 mark_object (&ptr->height); 1360 mark_object (&ptr->height);
1361 mark_object (&ptr->selected_window); 1361 mark_object (&ptr->selected_window);
@@ -1363,7 +1363,7 @@ mark_object (objptr)
1363 mark_object (&ptr->param_alist); 1363 mark_object (&ptr->param_alist);
1364 } 1364 }
1365 break; 1365 break;
1366#endif /* MULTI_SCREEN */ 1366#endif /* MULTI_FRAME */
1367 1367
1368#if 0 1368#if 0
1369 case Lisp_Temp_Vector: 1369 case Lisp_Temp_Vector:
@@ -1900,20 +1900,20 @@ prevent garbage collection during a part of the program.");
1900 "Non-nil means loading Lisp code in order to dump an executable.\n\ 1900 "Non-nil means loading Lisp code in order to dump an executable.\n\
1901This means that certain objects should be allocated in shared (pure) space."); 1901This means that certain objects should be allocated in shared (pure) space.");
1902 1902
1903 DEFVAR_INT ("undo-threshold", &undo_threshold, 1903 DEFVAR_INT ("undo-limit", &undo_limit,
1904 "Keep no more undo information once it exceeds this size.\n\ 1904 "Keep no more undo information once it exceeds this size.\n\
1905This threshold is applied when garbage collection happens.\n\ 1905This limit is applied when garbage collection happens.\n\
1906The size is counted as the number of bytes occupied,\n\ 1906The size is counted as the number of bytes occupied,\n\
1907which includes both saved text and other data."); 1907which includes both saved text and other data.");
1908 undo_threshold = 20000; 1908 undo_limit = 20000;
1909 1909
1910 DEFVAR_INT ("undo-high-threshold", &undo_high_threshold, 1910 DEFVAR_INT ("undo-strong-limit", &undo_strong_limit,
1911 "Don't keep more than this much size of undo information.\n\ 1911 "Don't keep more than this much size of undo information.\n\
1912A command which pushes past this size is itself forgotten.\n\ 1912A command which pushes past this size is itself forgotten.\n\
1913This threshold is applied when garbage collection happens.\n\ 1913This limit is applied when garbage collection happens.\n\
1914The size is counted as the number of bytes occupied,\n\ 1914The size is counted as the number of bytes occupied,\n\
1915which includes both saved text and other data."); 1915which includes both saved text and other data.");
1916 undo_high_threshold = 30000; 1916 undo_strong_limit = 30000;
1917 1917
1918 defsubr (&Scons); 1918 defsubr (&Scons);
1919 defsubr (&Slist); 1919 defsubr (&Slist);