static struct buffer *last_boundary_buffer;
static ptrdiff_t last_boundary_position;
-Lisp_Object Qinhibit_read_only;
-
-/* Marker for function call undo list elements. */
-
-Lisp_Object Qapply;
-
/* The first time a command records something for undo.
it also allocates the undo-boundary object
which will be added to the list at the end of the command.
void
record_change (ptrdiff_t beg, ptrdiff_t length)
{
- record_delete (beg, make_buffer_string (beg, beg + length, 1), false);
+ record_delete (beg, make_buffer_string (beg, beg + length, true), false);
record_insert (beg, length);
}
\f
{
Lisp_Object lbeg, lend, entry;
struct buffer *obuf = current_buffer, *buf = XBUFFER (buffer);
- bool boundary = 0;
+ bool boundary = false;
if (EQ (BVAR (buf, undo_list), Qt))
return;
pending_boundary = Fcons (Qnil, Qnil);
if (buf != last_undo_buffer)
- boundary = 1;
+ boundary = true;
last_undo_buffer = buf;
/* Switch temporarily to the buffer that was changed. */
syms_of_undo (void)
{
DEFSYM (Qinhibit_read_only, "inhibit-read-only");
+
+ /* Marker for function call undo list elements. */
DEFSYM (Qapply, "apply");
pending_boundary = Qnil;
DEFVAR_BOOL ("undo-inhibit-record-point", undo_inhibit_record_point,
doc: /* Non-nil means do not record `point' in `buffer-undo-list'. */);
- undo_inhibit_record_point = 0;
+ undo_inhibit_record_point = false;
}