diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-05-17 22:58:29 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-05-17 22:58:29 +0000 |
| commit | 811ab744a501cea6a7e27fe7feaf9e33a425109e (patch) | |
| tree | 1de3385c7bbbb811d35340113daabd376b8f1968 /src/eval.c | |
| parent | 46a203053f742d23542321a35c41abfeb4610158 (diff) | |
| download | emacs-811ab744a501cea6a7e27fe7feaf9e33a425109e.tar.gz | |
(Fbacktrace): Properly nest parentheses.
(Fbacktrace_frame): Don't bomb on invalid frame number.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/eval.c b/src/eval.c index 673e1bfda64..ddea482515f 100644 --- a/src/eval.c +++ b/src/eval.c @@ -2408,6 +2408,7 @@ Output stream used is value of `standard-output'.") if (backlist->nargs == UNEVALLED) { Fprin1 (Fcons (*backlist->function, *backlist->args), Qnil); + write_string ("\n", -1); } else { @@ -2432,8 +2433,8 @@ Output stream used is value of `standard-output'.") Fprin1 (backlist->args[i], Qnil); } } + write_string (")\n", -1); } - write_string (")\n", -1); backlist = backlist->next; } @@ -2462,7 +2463,7 @@ If N is more than the number of frames, the value is nil.") CHECK_NATNUM (nframes, 0); /* Find the frame requested. */ - for (i = 0; i < XFASTINT (nframes); i++) + for (i = 0; backlist && i < XFASTINT (nframes); i++) backlist = backlist->next; if (!backlist) |