Mercurial > emacs
diff src/eval.c @ 863:427299469901
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 24 Jul 1992 07:15:18 +0000 |
| parents | 8a4c2c149ec2 |
| children | 5b1c5b4286e7 |
line wrap: on
line diff
--- a/src/eval.c Fri Jul 24 06:09:27 1992 +0000 +++ b/src/eval.c Fri Jul 24 07:15:18 1992 +0000 @@ -1515,6 +1515,11 @@ val = (*XSUBR (fun)->function) (argvals[0], argvals[1], argvals[2], argvals[3], argvals[4], argvals[5]); goto done; + case 7: + val = (*XSUBR (fun)->function) (argvals[0], argvals[1], argvals[2], + argvals[3], argvals[4], argvals[5], + argvals[6]); + goto done; default: /* Someone has created a subr that takes more arguments than @@ -1846,6 +1851,12 @@ internal_args[2], internal_args[3], internal_args[4], internal_args[5]); goto done; + case 7: + val = (*XSUBR (fun)->function) (internal_args[0], internal_args[1], + internal_args[2], internal_args[3], + internal_args[4], internal_args[5], + internal_args[6]); + goto done; default: