branch: externals/xelb
commit 456fe463c1b05270dcc3d4dec72171e751dc1a14
Author: Steven Allen <ste...@stebalien.com>
Commit: Steven Allen <ste...@stebalien.com>
Include atom name in the "unsupported encoding" error message
Otherwise, it's impossible to debug this given that many atoms are
dynamically assigned numbers at runtime.
* xcb-iccm.el: (xcb:unmarshal, xcb:marshal): include the atom name in
the error message.
---
xcb-icccm.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/xcb-icccm.el b/xcb-icccm.el
index c8359bc102..c6a5b8494a 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -228,8 +228,8 @@ This method automatically decodes the value (as string)."
'compound-text-with-extensions)
((or (eq type xcb:Atom:TEXT) (eq type xcb:Atom:C_STRING))
'no-conversion)
- (t (error "[XELB:ICCCM] Unsupported encoding: %d"
- type)))))))
+ (t (error "[XELB:ICCCM] Unsupported encoding: %s (%d)"
+ (x-get-atom-name type) type)))))))
retval))
(defclass xcb:icccm:-ChangeProperty-text (xcb:icccm:-ChangeProperty)
@@ -254,7 +254,8 @@ This method automatically encodes the data (which is a
string)."
'compound-text-with-extensions)
((or (eq type xcb:Atom:TEXT) (eq type xcb:Atom:C_STRING))
'no-conversion)
- (t (error "[XELB:ICCCM] Unsupported encoding: %d" type)))))))
+ (t (error "[XELB:ICCCM] Unsupported encoding: %s (%d)"
+ (x-get-atom-name type) type)))))))
(cl-call-next-method obj))
;;;; Abstract classes for getting/changing single field properties
