branch: externals/xelb
commit b11bf9fe9c21e4aa55dc7ec7dd421c508c4398c0
Author: Steven Allen <[email protected]>
Commit: Steven Allen <[email protected]>
Fix XIM error flags and add a valid-both flag
The bits are set when the values are VALID, not INVALID, so these masks
were swapped. I've also added a mask to indicate when both are valid.
* xcb-xim.el (xim:error-flag:invalid-im-id): Fix error mask.
---
xcb-xim.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/xcb-xim.el b/xcb-xim.el
index d03764a0eb..de518c4401 100644
--- a/xcb-xim.el
+++ b/xcb-xim.el
@@ -345,8 +345,9 @@ Consider let-bind it rather than change its global value."))
(pad~0 :initform '(xim:PADDING (xcb:-fieldref 'length)) :type xcb:-pad)))
(defconst xim:error-flag:invalid-both 0)
-(defconst xim:error-flag:invalid-im-id 1)
-(defconst xim:error-flag:invalid-ic-id 2)
+(defconst xim:error-flag:invalid-ic-id 1)
+(defconst xim:error-flag:invalid-im-id 2)
+(defconst xim:error-flag:valid-both 3)
(defconst xim:error-code:bad-alloc 1)
(defconst xim:error-code:bad-style 2)
