From 42005513e85063b8a15bf384480d2c381a38fd33 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 12 Oct 2001 22:01:46 +0000 Subject: (traverse_intervals): Drop `depth' arg. --- src/intervals.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/intervals.c b/src/intervals.c index 868d60bccf..3e929f7f77 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; } } -- cgit v1.2.3