20 |
|
|
21 |
|
|
22 |
#include <config.h> |
#include <config.h> |
23 |
|
#ifdef BOEHM_GC |
24 |
|
#include <gc.h> |
25 |
|
#endif |
26 |
#include "lisp.h" |
#include "lisp.h" |
27 |
#include "macros.h" |
#include "macros.h" |
28 |
#include "commands.h" |
#include "commands.h" |
77 |
{ |
{ |
78 |
current_kboard->kbd_macro_bufsize = 30; |
current_kboard->kbd_macro_bufsize = 30; |
79 |
current_kboard->kbd_macro_buffer |
current_kboard->kbd_macro_buffer |
80 |
= (Lisp_Object *)xmalloc (30 * sizeof (Lisp_Object)); |
= (Lisp_Object *)XGC_MALLOC (30 * sizeof (Lisp_Object)); |
81 |
} |
} |
82 |
update_mode_lines++; |
update_mode_lines++; |
83 |
if (NILP (append)) |
if (NILP (append)) |
86 |
{ |
{ |
87 |
current_kboard->kbd_macro_bufsize = 30; |
current_kboard->kbd_macro_bufsize = 30; |
88 |
current_kboard->kbd_macro_buffer |
current_kboard->kbd_macro_buffer |
89 |
= (Lisp_Object *)xrealloc (current_kboard->kbd_macro_buffer, |
= (Lisp_Object *)XGC_REALLOC (current_kboard->kbd_macro_buffer, |
90 |
30 * sizeof (Lisp_Object)); |
30 * sizeof (Lisp_Object)); |
91 |
} |
} |
92 |
current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer; |
current_kboard->kbd_macro_ptr = current_kboard->kbd_macro_buffer; |
93 |
current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer; |
current_kboard->kbd_macro_end = current_kboard->kbd_macro_buffer; |
112 |
{ |
{ |
113 |
current_kboard->kbd_macro_bufsize = len + 30; |
current_kboard->kbd_macro_bufsize = len + 30; |
114 |
current_kboard->kbd_macro_buffer |
current_kboard->kbd_macro_buffer |
115 |
= (Lisp_Object *)xrealloc (current_kboard->kbd_macro_buffer, |
= (Lisp_Object *)XGC_REALLOC (current_kboard->kbd_macro_buffer, |
116 |
(len + 30) * sizeof (Lisp_Object)); |
(len + 30) * sizeof (Lisp_Object)); |
117 |
} |
} |
118 |
|
|
119 |
/* Must convert meta modifier when copying string to vector. */ |
/* Must convert meta modifier when copying string to vector. */ |
216 |
kb->kbd_macro_bufsize *= 2; |
kb->kbd_macro_bufsize *= 2; |
217 |
nbytes = kb->kbd_macro_bufsize * sizeof *kb->kbd_macro_buffer; |
nbytes = kb->kbd_macro_bufsize * sizeof *kb->kbd_macro_buffer; |
218 |
kb->kbd_macro_buffer |
kb->kbd_macro_buffer |
219 |
= (Lisp_Object *) xrealloc (kb->kbd_macro_buffer, nbytes); |
= (Lisp_Object *) XGC_REALLOC (kb->kbd_macro_buffer, nbytes); |
220 |
kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset; |
kb->kbd_macro_ptr = kb->kbd_macro_buffer + ptr_offset; |
221 |
kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset; |
kb->kbd_macro_end = kb->kbd_macro_buffer + end_offset; |
222 |
} |
} |