diff options
| author | Stefan Monnier | 2023-12-25 21:41:08 -0500 |
|---|---|---|
| committer | Stefan Monnier | 2023-12-28 01:17:21 -0500 |
| commit | 26b7078705ae5b9226c99e370740ab9a4063f20f (patch) | |
| tree | 45f130466b1c6cddf5ae705a49e410979ac183a7 /lib/signal.in.h | |
| parent | b925152bffce30abbd48361af6858cd45b785d84 (diff) | |
| download | emacs-scratch/handler-bind.tar.gz emacs-scratch/handler-bind.zip | |
(backtrace-on-redisplay-error): Use `handler-bind`scratch/handler-bind
Reimplement `backtrace-on-redisplay-error` using `push_handler_bind`.
This moves the code from `signal_or_quit` to `xdisp.c` and
`debug-early.el`.
* lisp/emacs-lisp/debug-early.el (debug-early-backtrace):
Add `base` arg to strip "internal" frames.
(debug--early): New function, extracted from `debug-early`.
(debug-early, debug-early--handler): Use it.
(debug-early--muted): New function, extracted (translated) from
`signal_or_quit`; trim the buffer to a max of 10 backtraces.
* src/xdisp.c (funcall_with_backtraces): New function.
(dsafe_calln): Use it.
(syms_of_xdisp): Defsym `Qdebug_early__muted`.
* src/eval.c (redisplay_deep_handler): Delete var.
(init_eval, internal_condition_case_n): Don't set it any more.
(backtrace_yet): Delete var.
(signal_or_quit): Remove special case for `backtrace_on_redisplay_error`.
* src/keyboard.c (command_loop_1): Don't set `backtrace_yet` any more.
* src/lisp.h (backtrace_yet): Don't declare.
Diffstat (limited to 'lib/signal.in.h')
0 files changed, 0 insertions, 0 deletions