Commit fb4ee5cd authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(prepare_to_modify_buffer): Take integer arguments.

(signal_before_change): Take integer arguments.
parent 5a053ea9
......@@ -739,7 +739,7 @@ modify_region (buffer, start, end)
prepare_to_modify_buffer (start, end)
Lisp_Object start, end;
int start, end;
if (!NILP (current_buffer->read_only))
Fbarf_if_buffer_read_only ();
......@@ -779,13 +779,17 @@ prepare_to_modify_buffer (start, end)
/* Signal a change to the buffer immediately before it happens.
START and END are the bounds of the text to be changed,
as Lisp objects. */
START_INT and END_INT are the bounds of the text to be changed. */
signal_before_change (start, end)
Lisp_Object start, end;
int start_int, end_end;
Lisp_Object start, end;
start = make_number (start_int);
end = make_number (end_int);
/* If buffer is unmodified, run a special hook for that case. */
&& !NILP (Vfirst_change_hook)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment