emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/xelb f5f336ec04: Fix lint errors (#23)


From: ELPA Syncer
Subject: [elpa] externals/xelb f5f336ec04: Fix lint errors (#23)
Date: Wed, 24 Jan 2024 00:59:11 -0500 (EST)

branch: externals/xelb
commit f5f336ec04aec927a96d9f15ac4c95ebdf4229c2
Author: Steven Allen <steven@stebalien.com>
Commit: GitHub <noreply@github.com>

    Fix lint errors (#23)
    
    * xcb-keysyms.el,
      xcb.el: Import `cl-lib` at runtime for macros like `cl-incf`.
    * xcb-keysyms.el: Fix documentation quoting.
    * xcb.el (xcb:-process-events): Remove unused `unwind-protect`.
---
 xcb-keysyms.el | 6 +++---
 xcb.el         | 8 ++++----
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/xcb-keysyms.el b/xcb-keysyms.el
index e20390ce3a..8999d71986 100644
--- a/xcb-keysyms.el
+++ b/xcb-keysyms.el
@@ -39,7 +39,7 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl-lib))
+(require 'cl-lib)
 
 (require 'xcb)
 (require 'xcb-xkb)
@@ -149,7 +149,7 @@ This method must be called before using any other method in 
this module."
                        :autoCtrlsValues 0))))
 
 (cl-defmethod xcb:keysyms:-on-NewKeyboardNotify ((obj xcb:connection) data)
-  "Handle 'NewKeyboardNotify' event."
+  "Handle a \\='NewKeyboardNotify' event."
   (let ((device-id (xcb:-get-extra-plist obj 'keysyms 'device-id))
         (callback (xcb:-get-extra-plist obj 'keysyms 'callback))
         (obj1 (make-instance 'xcb:xkb:NewKeyboardNotify))
@@ -182,7 +182,7 @@ This method must be called before using any other method in 
this module."
         (funcall callback)))))
 
 (cl-defmethod xcb:keysyms:-on-MapNotify ((obj xcb:connection) data)
-  "Handle 'MapNotify' event."
+  "Handle \\='MapNotify' event."
   (let ((device-id (xcb:-get-extra-plist obj 'keysyms 'device-id))
         (callback (xcb:-get-extra-plist obj 'keysyms 'callback))
         (obj1 (make-instance 'xcb:xkb:MapNotify))
diff --git a/xcb.el b/xcb.el
index 61f162c74d..e7c2165b85 100644
--- a/xcb.el
+++ b/xcb.el
@@ -52,7 +52,8 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl-lib))
+(require 'cl-lib)
+
 (require 'xcb-xproto)
 
 (defvar xcb:connection-timeout 3 "Connection timeout.")
@@ -418,9 +419,8 @@ Concurrency is disabled as it breaks the orders of errors, 
replies and events."
               (setq data (aref event 1)
                     synthetic (aref event 2))
               (dolist (listener (aref event 0))
-                (unwind-protect
-                    (xcb-debug:backtrace-on-error
-                     (funcall listener data synthetic))))))
+                (xcb-debug:backtrace-on-error
+                 (funcall listener data synthetic)))))
         (cl-decf event-lock)))))
 
 (cl-defmethod xcb:disconnect ((obj xcb:connection))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]