Mercurial > hg > xemacs-beta
comparison src/eval.c @ 187:b405438285a2 r20-3b20
Import from CVS: tag r20-3b20
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:56:28 +0200 |
| parents | 3d6bfa290dbd |
| children | a2f645c6b9f8 |
comparison
equal
deleted
inserted
replaced
| 186:24ac94803b48 | 187:b405438285a2 |
|---|---|
| 3614 To make a hook variable buffer-local, use `make-local-hook', | 3614 To make a hook variable buffer-local, use `make-local-hook', |
| 3615 not `make-local-variable'. | 3615 not `make-local-variable'. |
| 3616 */ | 3616 */ |
| 3617 (int nargs, Lisp_Object *args)) | 3617 (int nargs, Lisp_Object *args)) |
| 3618 { | 3618 { |
| 3619 Lisp_Object hook[1]; | |
| 3620 REGISTER int i; | 3619 REGISTER int i; |
| 3621 | 3620 |
| 3622 for (i = 0; i < nargs; i++) | 3621 for (i = 0; i < nargs; i++) |
| 3623 { | 3622 run_hook_with_args (1, args + i, RUN_HOOKS_TO_COMPLETION); |
| 3624 hook[0] = args[i]; | |
| 3625 run_hook_with_args (1, hook, RUN_HOOKS_TO_COMPLETION); | |
| 3626 } | |
| 3627 | 3623 |
| 3628 return Qnil; | 3624 return Qnil; |
| 3629 } | 3625 } |
| 3630 | 3626 |
| 3631 DEFUN ("run-hook-with-args", Frun_hook_with_args, 1, MANY, 0, /* | 3627 DEFUN ("run-hook-with-args", Frun_hook_with_args, 1, MANY, 0, /* |