Mercurial > hg > xemacs-beta

diff src/eval.c @ 223:2c611d1463a6 r20-4b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b10
author cvs
date Mon, 13 Aug 2007 10:10:54 +0200
parents 78478c60bfcd
children f955c73f5258
line wrap: on
line diff
--- a/src/eval.c	Mon Aug 13 10:10:03 2007 +0200
+++ b/src/eval.c	Mon Aug 13 10:10:54 2007 +0200
@@ -2856,7 +2856,9 @@
                                    int nargs, Lisp_Object args[]);
 static Lisp_Object apply_lambda (Lisp_Object fun,
                                  int nargs, Lisp_Object args);
+#if 0 /* #### Not called anymore */
 static Lisp_Object funcall_subr (struct Lisp_Subr *sub, Lisp_Object args[]);
+#endif
 
 static int in_warnings;
 
@@ -3551,11 +3553,13 @@
   return Qnil;	/* suppress compiler warning */
 }
 
+#if 0 /* #### Not called anymore */
 static Lisp_Object
 funcall_subr (struct Lisp_Subr *subr, Lisp_Object args[])
 {
   return primitive_funcall (subr_function (subr), subr->max_args, args);
 }
+#endif
 
 /* FSFmacs has an extra arg EVAL_FLAG.  If false, some of
    the statements below are not done.  But it's always true