diff options
| author | Karoly Lorentey | 2004-05-30 21:11:48 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-05-30 21:11:48 +0000 |
| commit | a596810c6c3c3c2fd450717f5083a5ff5207d243 (patch) | |
| tree | e84b4a480f6b5bdfb232a384c4c77472950be2a8 /src/eval.c | |
| parent | 3de8a2533978f2e296b418a1ab0ae41deb00fa40 (diff) | |
| parent | 9dd5e8d7c1e0cb26cc75f8cdf91eeaa170b48a6a (diff) | |
| download | emacs-a596810c6c3c3c2fd450717f5083a5ff5207d243.tar.gz emacs-a596810c6c3c3c2fd450717f5083a5ff5207d243.zip | |
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-344
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-345
Tweak source regexps so that building in place won't cause problems
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-346
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-347
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-348
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-349
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-350
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-351
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-352
Update from CVS: lisp/flymake.el: New file.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-182
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/eval.c b/src/eval.c index 0326a828a81..921a7533a60 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -3243,6 +3243,25 @@ If NFRAMES is more than the number of frames, the value is nil. */) | |||
| 3243 | 3243 | ||
| 3244 | 3244 | ||
| 3245 | void | 3245 | void |
| 3246 | mark_backtrace () | ||
| 3247 | { | ||
| 3248 | register struct backtrace *backlist; | ||
| 3249 | register int i; | ||
| 3250 | |||
| 3251 | for (backlist = backtrace_list; backlist; backlist = backlist->next) | ||
| 3252 | { | ||
| 3253 | mark_object (*backlist->function); | ||
| 3254 | |||
| 3255 | if (backlist->nargs == UNEVALLED || backlist->nargs == MANY) | ||
| 3256 | i = 0; | ||
| 3257 | else | ||
| 3258 | i = backlist->nargs - 1; | ||
| 3259 | for (; i >= 0; i--) | ||
| 3260 | mark_object (backlist->args[i]); | ||
| 3261 | } | ||
| 3262 | } | ||
| 3263 | |||
| 3264 | void | ||
| 3246 | syms_of_eval () | 3265 | syms_of_eval () |
| 3247 | { | 3266 | { |
| 3248 | DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, | 3267 | DEFVAR_INT ("max-specpdl-size", &max_specpdl_size, |