emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 8ef1933a042 1/2: * lisp/emacs-lisp/edebug.el (edebug-list-form):


From: Stefan Monnier
Subject: master 8ef1933a042 1/2: * lisp/emacs-lisp/edebug.el (edebug-list-form): Don't gate so eagerly
Date: Tue, 5 Sep 2023 11:59:47 -0400 (EDT)

branch: master
commit 8ef1933a0421220e1bfaca2015aea8b35dbf1276
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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.
---
 lisp/emacs-lisp/edebug.el | 4 +---
 1 file changed, 1 insertion(+), 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."
 (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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]