# HG changeset patch
# User Joseph Arceneaux <jla@gnu.org>
# Date 718065198 0
# Node ID b469633740b3baa5848257c7975ccfc85e311aa4
# Parent  01d973b5d81bfe7062c1e26212ecf49bd957be79
Fixed typos.

diff -r 01d973b5d81b -r b469633740b3 src/intervals.c
--- a/src/intervals.c	Fri Oct 02 22:32:00 1992 +0000
+++ b/src/intervals.c	Fri Oct 02 22:33:18 1992 +0000
@@ -650,7 +650,7 @@
   if (position == i->position
       && position != 1)
     {
-      register prev = previous_interval (i);
+      register INTERVAL prev = previous_interval (i);
 
       /* If both intervals are sticky here, then default to the
          left-most one.  But perhaps we should create a new
@@ -662,7 +662,7 @@
   while (! NULL_INTERVAL_P (i))
     {
       i->total_length += length;
-      i = i->parent
+      i = i->parent;
     }
 
   return tree;
@@ -1126,7 +1126,7 @@
     {
       /* The inserted text constitutes the whole buffer, so
 	 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);
 	  /* Explicitly free the old tree here. */
@@ -1137,8 +1137,8 @@
       /* Create an interval tree in which to place a copy
          of the intervals of the inserted string. */
       {
-	Lisp_Object buffer;
-	XSET (buffer, Lisp_Buffer, b);
+	Lisp_Object buf;
+	XSET (buf, Lisp_Buffer, buffer);
 	create_root_interval (buffer);
       }
     }
@@ -1393,7 +1393,7 @@
 {
   register INTERVAL intervals = buf->intervals;
   register INTERVAL i;
-  register Lisp_Object hooks = Qnil;
+  Lisp_Object hooks = Qnil;
   register prev_mod_hook = Qnil;
   register Lisp_Object mod_hook;
   struct gcpro gcpro1;