[elpa] externals/xelb b60a1d0 4/7: Print backtrace upon event listener errors

[Chris Feng]

branch: externals/xelb
commit b60a1d034953d6407726da2b9ceb44a0b50e4fa7
Author: Adrián Medraño Calvo <address@hidden>
Commit: Adrián Medraño Calvo <address@hidden>

    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))