]> git.eshelyaron.com Git - emacs.git/commitdiff
Simplify (if COND nil BODY) to (unless COND BODY)
authorEshel Yaron <me@eshelyaron.com>
Tue, 29 Apr 2025 07:27:46 +0000 (09:27 +0200)
committerEshel Yaron <me@eshelyaron.com>
Tue, 29 Apr 2025 07:27:46 +0000 (09:27 +0200)
lisp/emacs-lisp/debug.el

index 038aadcdc07543c6657dd92402ae66fd5a35c21c..25ede070e5caf30e7f63ec1a18765d0b785222e0 100644 (file)
@@ -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))))