[elpa] externals/xelb e2bccd5e00: Use cl-incf (#24)

[ELPA Syncer]

branch: externals/xelb
commit e2bccd5e007dc67fad9b036ae7c552141c89ce96
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: GitHub <noreply@github.com>

    Use cl-incf (#24)
    
    * xcb.el (xcb:-cache-request),
      xelb-gen: Use cl-incf.
---
 xcb.el   | 4 ++--
 xelb-gen | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/xcb.el b/xcb.el
index e7c2165b85..a39ccaabc2 100644
--- a/xcb.el
+++ b/xcb.el
@@ -552,10 +552,10 @@ classes of EVENT (since they have the same event number)."
          (cache (slot-value obj 'request-cache)))
     (when extension-opcode
       (setq msg (vconcat (vector extension-opcode) msg))
-      (setq len (1+ len)))
+      (cl-incf len))
     (when (> 2 (length msg))   ;for short message (e.g. GetInputFocus)
       (setq msg (vconcat msg [0]))
-      (setq len (1+ len)))
+      (cl-incf len))
     (setq msg
           (vconcat (substring msg 0 2)
                    (funcall (if (slot-value request '~lsb) #'xcb:-pack-u2-lsb
diff --git a/xelb-gen b/xelb-gen
index 125936c844..daff68cfe9 100755
--- a/xelb-gen
+++ b/xelb-gen
@@ -347,7 +347,7 @@ an `xelb-auto-padding' attribute."
                              (expression (xelb-node-subnode i)))
                         (if expression
                             (setq value (xelb-parse-expression expression))
-                          (setq value (1+ value)))
+                          (cl-incf value))
                        ;; Omit the rare enums that do not fit in a fixnum in
                        ;; 32-bit Emacs, so that the resulting .el and .elc
                        ;; files are portable to 32-bit Emacs.  Admittedly