Mercurial > hg > xemacs-beta

diff src/eval.c @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children a2f645c6b9f8
line wrap: on
line diff
--- a/src/eval.c	Mon Aug 13 09:55:30 2007 +0200
+++ b/src/eval.c	Mon Aug 13 09:56:28 2007 +0200
@@ -3616,14 +3616,10 @@
 */
        (int nargs, Lisp_Object *args))
 {
-  Lisp_Object hook[1];
   REGISTER int i;
 
   for (i = 0; i < nargs; i++)
-    {
-      hook[0] = args[i];
-      run_hook_with_args (1, hook, RUN_HOOKS_TO_COMPLETION);
-    }
+    run_hook_with_args (1, args + i, RUN_HOOKS_TO_COMPLETION);
 
   return Qnil;
 }