[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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 8ef1933a042 1/2: * lisp/emacs-lisp/edebug.el (edebug-list-form): Don't gate so eagerly,
Stefan Monnier <=