Commit 249a6da9 authored by Joseph Arceneaux's avatar Joseph Arceneaux
Browse files

Fixed typos.

parent cde20f41
...@@ -650,7 +650,7 @@ adjust_intervals_for_insertion (tree, position, length) ...@@ -650,7 +650,7 @@ adjust_intervals_for_insertion (tree, position, length)
if (position == i->position if (position == i->position
&& position != 1) && position != 1)
{ {
register prev = previous_interval (i); register INTERVAL prev = previous_interval (i);
/* If both intervals are sticky here, then default to the /* If both intervals are sticky here, then default to the
left-most one. But perhaps we should create a new left-most one. But perhaps we should create a new
...@@ -662,7 +662,7 @@ adjust_intervals_for_insertion (tree, position, length) ...@@ -662,7 +662,7 @@ adjust_intervals_for_insertion (tree, position, length)
while (! NULL_INTERVAL_P (i)) while (! NULL_INTERVAL_P (i))
{ {
i->total_length += length; i->total_length += length;
i = i->parent i = i->parent;
} }
return tree; return tree;
...@@ -1126,7 +1126,7 @@ graft_intervals_into_buffer (source, position, buffer) ...@@ -1126,7 +1126,7 @@ graft_intervals_into_buffer (source, position, buffer)
{ {
/* The inserted text constitutes the whole buffer, so /* The inserted text constitutes the whole buffer, so
simply copy over the interval structure. */ simply copy over the interval structure. */
if (BUF_Z (b) == TOTAL_LENGTH (source)) if (BUF_Z (buffer) == TOTAL_LENGTH (source))
{ {
buffer->intervals = reproduce_tree (source, tree->parent); buffer->intervals = reproduce_tree (source, tree->parent);
/* Explicitly free the old tree here. */ /* Explicitly free the old tree here. */
...@@ -1137,8 +1137,8 @@ graft_intervals_into_buffer (source, position, buffer) ...@@ -1137,8 +1137,8 @@ graft_intervals_into_buffer (source, position, buffer)
/* Create an interval tree in which to place a copy /* Create an interval tree in which to place a copy
of the intervals of the inserted string. */ of the intervals of the inserted string. */
{ {
Lisp_Object buffer; Lisp_Object buf;
XSET (buffer, Lisp_Buffer, b); XSET (buf, Lisp_Buffer, buffer);
create_root_interval (buffer); create_root_interval (buffer);
} }
} }
...@@ -1393,7 +1393,7 @@ verify_interval_modification (buf, start, end) ...@@ -1393,7 +1393,7 @@ verify_interval_modification (buf, start, end)
{ {
register INTERVAL intervals = buf->intervals; register INTERVAL intervals = buf->intervals;
register INTERVAL i; register INTERVAL i;
register Lisp_Object hooks = Qnil; Lisp_Object hooks = Qnil;
register prev_mod_hook = Qnil; register prev_mod_hook = Qnil;
register Lisp_Object mod_hook; register Lisp_Object mod_hook;
struct gcpro gcpro1; struct gcpro gcpro1;
......
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