branch: externals/xelb
commit 1cea22d26295f089139233907a97248451d5fe92
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
Provide a way to disable auto-padding
The auto-padding feature need to be disabled for at least XIM. Perhaps it's
better to insert auto-padding fields with code generator directly.
---
xcb-types.el | 7 ++++---
1 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/xcb-types.el b/xcb-types.el
index 3fd06bf..b3eecdb 100644
--- a/xcb-types.el
+++ b/xcb-types.el
@@ -293,7 +293,8 @@ Consider let-bind it rather than change its global value.")
(defclass xcb:-struct ()
((~lsb :initarg :~lsb
:initform (symbol-value 'xcb:lsb) ;see `eieio-default-eval-maybe'
- :type xcb:-ignore))
+ :type xcb:-ignore)
+ (~auto-padding :initarg :~auto-padding :initform t :type xcb:-ignore))
:documentation "Struct type.")
(cl-defmethod xcb:marshal ((obj xcb:-struct))
@@ -350,7 +351,7 @@ The optional POS argument indicates current byte index of
the field (used by
(data (slot-value obj list-name))
implicit-padding)
(unless (integerp list-size)
- (setq implicit-padding t)
+ (when (slot-value obj '~auto-padding) (setq implicit-padding t))
(setq list-size (eval list-size `((obj . ,obj))))
(unless list-size
(setq list-size (length data)))) ;list-size can be nil
@@ -467,7 +468,7 @@ and the second the consumed length."
(list-size (plist-get initform 'size))
implicit-padding)
(unless (integerp list-size)
- (setq implicit-padding t)
+ (when (slot-value obj '~auto-padding) (setq implicit-padding t))
(setq list-size (eval list-size `((obj . ,obj) (ctx . ,ctx)))))
(cl-assert (integerp list-size))
(pcase list-type
