branch: externals/xelb
commit b60a1d034953d6407726da2b9ceb44a0b50e4fa7
Author: Adrián Medraño Calvo <adr...@medranocalvo.com>
Commit: Adrián Medraño Calvo <adr...@medranocalvo.com>
Print backtrace upon event listener errors
* xcb.el (xcb:-process-events): Output backtrace of erroring event
listeners when `xcb:debug-on' is enabled.
---
xcb.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/xcb.el b/xcb.el
index 2637b47..e9f4b79 100644
--- a/xcb.el
+++ b/xcb.el
@@ -409,7 +409,10 @@ Concurrency is disabled as it breaks the orders of errors,
replies and events."
synthetic (aref event 2))
(dolist (listener (aref event 0))
(with-demoted-errors "[XELB ERROR] %S"
- (funcall listener data synthetic)))))
+ (if xcb:debug-on
+ (xcb-debug-backtrace-on-error
+ (funcall listener data synthetic))
+ (funcall listener data synthetic))))))
(cl-decf event-lock)))))
(cl-defmethod xcb:disconnect ((obj xcb:connection))
