(traverse_intervals): Protoize parameter.

diff --git a/src/intervals.c b/src/intervals.c
index 33cef35..25bc6e3 100644 (file)
--- a/src/intervals.c
+++ b/src/intervals.c
@@ -198,7 +198,7 @@ void
 traverse_intervals (tree, position, depth, function, arg)
      INTERVAL tree;
      int position, depth;
-     void (* function) ();
+     void (* function) P_ ((INTERVAL, Lisp_Object));
      Lisp_Object arg;
 {
   if (NULL_INTERVAL_P (tree))