# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1002924106 0
# Node ID a1e434124570b859191bffdc80f936d16556de4c
# Parent  e42e6b9ee22156978467b9f1dd45a0c6811a1b4b
(traverse_intervals): Drop `depth' arg.

diff -r e42e6b9ee221 -r a1e434124570 src/intervals.c
--- a/src/intervals.c	Fri Oct 12 21:59:38 2001 +0000
+++ b/src/intervals.c	Fri Oct 12 22:01:46 2001 +0000
@@ -215,19 +215,19 @@
    Pass FUNCTION two args: an interval, and ARG.  */
 
 void
-traverse_intervals (tree, position, depth, function, arg)
+traverse_intervals (tree, position, function, arg)
      INTERVAL tree;
-     int position, depth;
+     int position;
      void (* function) P_ ((INTERVAL, Lisp_Object));
      Lisp_Object arg;
 {
   while (!NULL_INTERVAL_P (tree))
     {
-      traverse_intervals (tree->left, position, depth + 1, function, arg);
+      traverse_intervals (tree->left, position, function, arg);
       position += LEFT_TOTAL_LENGTH (tree);
       tree->position = position;
       (*function) (tree, arg);
-      position += LENGTH (tree); tree = tree->right; depth++;
+      position += LENGTH (tree); tree = tree->right;
     }
 }