Use condition-case-unless-debug

emacs-circe · Oct 31, 2024 · 88739da · 88739da
1 parent 3ae3879
commit 88739da
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 7 deletions.
diff --git a/irc.el b/irc.el
@@ -304,13 +304,11 @@ USERSTRING is a typical nick!user@host prefix as used by IRC."
 (defun irc-handler-run (table event &rest args)
   "Run the handlers for EVENT in TABLE, passing ARGS to each."
   (dolist (handler (gethash event table))
-    (if debug-on-error
+    (condition-case-unless-debug err
         (apply handler args)
-      (condition-case err
-          (apply handler args)
-        (error
-         (message "Error running event %S handler %S: %S (args were %S)"
-                  event handler err args))))))
+      (error
+       (message "Error running event %S handler %S: %S (args were %S)"
+                event handler err args)))))
 
 ;;;;;;;;;;;
 ;;; Sending

diff --git a/lui.el b/lui.el
@@ -517,7 +517,7 @@ See `lui-scroll-behavior' for how to customize this."
 This is called from `post-command-hook'.
 
 See `lui-scroll-behavior' for how to customize this."
-  (condition-case err
+  (condition-case-unless-debug err
       (dolist (w (window-list))
         (with-current-buffer (window-buffer w)
           (when (and lui-input-marker