From 2e99098071198095212ab04aeb4d432c11e14628 Mon Sep 17 00:00:00 2001 From: Eshel Yaron Date: Tue, 29 Apr 2025 09:27:46 +0200 Subject: [PATCH] Simplify (if COND nil BODY) to (unless COND BODY) --- lisp/emacs-lisp/debug.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 038aadcdc07..25ede070e5c 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -781,8 +781,7 @@ To specify a nil argument interactively, exit with an empty minibuffer." (defun debug--implement-debug-watch (symbol newval op where) "Conditionally call the debugger. This function is called when SYMBOL's value is modified." - (if (or inhibit-debug-on-entry debugger-jumping-flag) - nil + (unless (or inhibit-debug-on-entry debugger-jumping-flag) (let ((inhibit-debug-on-entry t)) (funcall debugger 'watchpoint symbol newval op where)))) -- 2.39.5