src/\f * data.c (indirect_function): Delete unused argument ERROR.

diff --git a/src/data.c b/src/data.c
index 70fb084..3a19314 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1179,7 +1179,7 @@ From now on the default value will apply in this buffer.")
    This is like Findirect_function, except that it doesn't signal an
    error if the chain ends up unbound.  */
 Lisp_Object
-indirect_function (object, error)
+indirect_function (object)
   register Lisp_Object object;
 {
   Lisp_Object tortise, hare;