diff options
| author | Stefan Monnier | 2023-09-05 11:54:55 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-09-05 11:54:55 -0400 |
| commit | 8ef1933a0421220e1bfaca2015aea8b35dbf1276 (patch) | |
| tree | cae07f963264d4bc0335dd17ee59ab814e1c0e18 | |
| parent | 211ee13fb5d973a11988b8425be90cac2c8f0104 (diff) | |
| download | emacs-8ef1933a0421220e1bfaca2015aea8b35dbf1276.tar.gz emacs-8ef1933a0421220e1bfaca2015aea8b35dbf1276.zip | |
* lisp/emacs-lisp/edebug.el (edebug-list-form): Don't gate so eagerly
The `edebug-gate` is fairly heavy handed, so don't activate it
just because we seem to have found what looks like a valid form.
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 78326fde26d..aa68978f6d6 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -1544,9 +1544,7 @@ contains a circular object." | |||
| 1544 | (defun edebug-list-form (cursor) | 1544 | (defun edebug-list-form (cursor) |
| 1545 | ;; Return an instrumented form built from the list form. | 1545 | ;; Return an instrumented form built from the list form. |
| 1546 | ;; The after offset will be left in the cursor after processing the form. | 1546 | ;; The after offset will be left in the cursor after processing the form. |
| 1547 | (let ((head (edebug-top-element-required cursor "Expected elements")) | 1547 | (let ((head (edebug-top-element-required cursor "Expected elements"))) |
| 1548 | ;; Prevent backtracking whenever instrumenting. | ||
| 1549 | (edebug-gate t)) | ||
| 1550 | ;; Skip the first offset. | 1548 | ;; Skip the first offset. |
| 1551 | (edebug-set-cursor cursor (edebug-cursor-expressions cursor) | 1549 | (edebug-set-cursor cursor (edebug-cursor-expressions cursor) |
| 1552 | (cdr (edebug-cursor-offsets cursor))) | 1550 | (cdr (edebug-cursor-offsets cursor))) |