From: Stefan Monnier Date: Tue, 5 Sep 2023 15:54:55 +0000 (-0400) Subject: * lisp/emacs-lisp/edebug.el (edebug-list-form): Don't gate so eagerly X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ef1933a0421220e1bfaca2015aea8b35dbf1276;p=emacs.git * 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. --- 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." (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)))