branch: externals/xelb
commit 8ac915ba1a836d3752ee8de4eb125da7af4dd299
Author: Chris Feng <chris.w.f...@gmail.com>
Commit: Chris Feng <chris.w.f...@gmail.com>
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)
