[elpa] externals/xelb 8ac915b: Sync with upstream protocol

[Chris Feng]

branch: externals/xelb
commit 8ac915ba1a836d3752ee8de4eb125da7af4dd299
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>

    Sync with upstream protocol
---
 el_client.el       | 4 ++--
 xcb-keysyms.el     | 1 -
 xcb-screensaver.el | 3 +--
 3 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/el_client.el b/el_client.el
index 393745e..dadcc39 100644
--- a/el_client.el
+++ b/el_client.el
@@ -355,8 +355,8 @@ an `xelb-auto-padding' attribute."
                        ;; 32-bit Emacs, so that the resulting .el and .elc
                        ;; files are portable to 32-bit Emacs.  Admittedly
                        ;; this is a kludge.
-                       (unless (and ((integerp value)
-                                     (not (<= -536870912 value 536870911))))
+                       (unless (and (integerp value)
+                                    (not (<= -536870912 value 536870911)))
                          `(defconst ,name ,value)))))
                   items))))
 
diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index 881946e..3575b7e 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -151,7 +151,6 @@ This method must be called before using any other method in 
this module."
 (cl-defmethod xcb:keysyms:-on-NewKeyboardNotify ((obj xcb:connection) data)
   "Handle 'NewKeyboardNotify' event."
   (let ((device-id (xcb:-get-extra-plist obj 'keysyms 'device-id))
-        (opcode (xcb:-get-extra-plist obj 'keysyms 'opcode))
         (callback (xcb:-get-extra-plist obj 'keysyms 'callback))
         (obj1 (make-instance 'xcb:xkb:NewKeyboardNotify))
         device updated)
diff --git a/xcb-screensaver.el b/xcb-screensaver.el
index 040c761..f4b22ba 100644
--- a/xcb-screensaver.el
+++ b/xcb-screensaver.el
@@ -139,8 +139,7 @@
 (defclass xcb:screensaver:Suspend
   (xcb:-request)
   ((~opcode :initform 5 :type xcb:-u1)
-   (suspend :initarg :suspend :type xcb:BOOL)
-   (pad~0 :initform 3 :type xcb:-pad)))
+   (suspend :initarg :suspend :type xcb:CARD32)))
 
 (defclass xcb:screensaver:Notify
   (xcb:-event)