[elpa] externals/xelb 527dbf8 2/3: * xcb-renderutil.el (xcb:renderutil:find-format): Traverse the 'formats'

[Chris Feng]

branch: externals/xelb
commit 527dbf856ae289d171968eada23cfdf0f602b86f
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    * xcb-renderutil.el (xcb:renderutil:find-format): Traverse the 'formats'
    slot; return format ID.
---
 xcb-renderutil.el |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xcb-renderutil.el b/xcb-renderutil.el
index 73f55ff..0fcfbf0 100644
--- a/xcb-renderutil.el
+++ b/xcb-renderutil.el
@@ -226,7 +226,7 @@ Return COUNT-th match."
   (catch 'return
     (unless formats
       (throw 'return nil))
-    (dolist (f formats)
+    (dolist (f (slot-value formats 'formats))
       (when (and (if (/= 0 (logand mask xcb:renderutil:PICT_FORMAT:ID))
                      (eq (slot-value template 'id) (slot-value f 'id))
                    t)
@@ -265,7 +265,7 @@ Return COUNT-th match."
                          (slot-value f 'colormap))
                    t))
         (when (= count 0)
-          (throw 'return f)
+          (throw 'return (slot-value f 'id))
           (cl-decf count))))))
 
 (defun xcb:renderutil:find-standard (formats format)