[elpa] externals/xelb 520120a 24/42: Merge pull request #3 from pipcet/ignore-missing-values

[Chris Feng]

branch: externals/xelb
commit 520120a172e8ceae8a36464a3848a4aaeb5aacf0
Merge: e153829 f465091
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

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