From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Oct 2001 22:01:46 +0000 (+0000)
Subject: (traverse_intervals): Drop `depth' arg.
X-Git-Tag: ttn-vms-21-2-B4~19506
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42005513e85063b8a15bf384480d2c381a38fd33;p=emacs.git

(traverse_intervals): Drop `depth' arg.
---

diff --git a/src/intervals.c b/src/intervals.c
index 868d60bccf3..3e929f7f775 100644
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -215,19 +215,19 @@ traverse_intervals_noorder (tree, function, arg)
    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;
     }
 }