branch: externals/xelb
commit 520120a172e8ceae8a36464a3848a4aaeb5aacf0
Merge: e153829 f465091
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
Merge pull request #3 from pipcet/ignore-missing-values
It's valid for WM_NORMAL_HINTS responses only to have 15 words.
---
xcb-icccm.el | 3 +--
1 files changed, 1 insertions(+), 2 deletions(-)
diff --git a/xcb-icccm.el b/xcb-icccm.el
index 1d178d8..feff43c 100644
--- a/xcb-icccm.el
+++ b/xcb-icccm.el
@@ -291,9 +291,8 @@ explicitly listed out."
(slots (nthcdr (length slots-orig) slots))
(value (slot-value obj 'value)))
(unless value (setq value (make-vector (length slots) nil))) ;fallback
- (cl-assert (= (length value) (length slots)))
;; Set explicit fields from value field
- (dotimes (i (length slots))
+ (dotimes (i (length value))
(setf (slot-value obj (cl--slot-descriptor-name (elt slots i)))
(elt value i)))
retval))
