]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/edebug.el (edebug-list-form): Don't gate so eagerly
authorStefan Monnier <monnier@iro.umontreal.ca>
Tue, 5 Sep 2023 15:54:55 +0000 (11:54 -0400)
committerStefan Monnier <monnier@iro.umontreal.ca>
Tue, 5 Sep 2023 15:54:55 +0000 (11:54 -0400)
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.

lisp/emacs-lisp/edebug.el

index 78326fde26d66cec6845520492e097b8eb174656..aa68978f6d60c94c774f64b553bc49c084bd3637 100644 (file)
@@ -1544,9 +1544,7 @@ contains a circular object."
 (defun edebug-list-form (cursor)
   ;; Return an instrumented form built from the list form.
   ;; The after offset will be left in the cursor after processing the form.
-  (let ((head (edebug-top-element-required cursor "Expected elements"))
-       ;; Prevent backtracking whenever instrumenting.
-       (edebug-gate t))
+  (let ((head (edebug-top-element-required cursor "Expected elements")))
     ;; Skip the first offset.
     (edebug-set-cursor cursor (edebug-cursor-expressions cursor)
                       (cdr (edebug-cursor-offsets cursor)))