From: Eshel Yaron Date: Tue, 29 Apr 2025 07:27:46 +0000 (+0200) Subject: Simplify (if COND nil BODY) to (unless COND BODY) X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e99098071198095212ab04aeb4d432c11e14628;p=emacs.git Simplify (if COND nil BODY) to (unless COND BODY) --- 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))))