378 |
&& size_so_far > XINT (Vundo_outer_limit) |
&& size_so_far > XINT (Vundo_outer_limit) |
379 |
&& !NILP (Vundo_outer_limit_function)) |
&& !NILP (Vundo_outer_limit_function)) |
380 |
{ |
{ |
381 |
Lisp_Object temp = last_undo_buffer; |
Lisp_Object temp = last_undo_buffer, tem; |
382 |
|
|
383 |
/* Normally the function this calls is undo-outer-limit-truncate. */ |
/* Normally the function this calls is undo-outer-limit-truncate. */ |
384 |
if (! NILP (call1 (Vundo_outer_limit_function, |
tem = call1 (Vundo_outer_limit_function, make_number (size_so_far)); |
385 |
make_number (size_so_far)))) |
if (! NILP (tem)) |
386 |
{ |
{ |
387 |
/* The function is responsible for making |
/* The function is responsible for making |
388 |
any desired changes in buffer-undo-list. */ |
any desired changes in buffer-undo-list. */ |