From fb33e3b4c79f8d922d9fe6e593dcc12c3c4b24eb Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 6 Mar 2025 15:23:03 -0500 Subject: (debug--early): Avoid re-entering the debugger for the same error Fixes bug#76787. * lisp/emacs-lisp/debug.el (debugger--last-error): Move ... * lisp/emacs-lisp/debug-early.el (debugger--last-error): ... here. (debug--early): Use it. --- lisp/emacs-lisp/debug.el | 2 -- 1 file changed, 2 deletions(-) (limited to 'lisp/emacs-lisp/debug.el') diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index f8af6eafa32..c1aaa1ac623 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -153,8 +153,6 @@ where CAUSE can be: (insert (debugger--buffer-state-content state))) (goto-char (debugger--buffer-state-pos state))) -(defvar debugger--last-error nil) - (defun debugger--duplicate-p (args) (pcase args (`(error ,err . ,_) (and (consp err) (eq err debugger--last-error))))) -- cgit v1.2.3