[elpa] externals/xelb c95b46817b 2/3: Drop Emacs 24 compatibility code

[ELPA Syncer]

branch: externals/xelb
commit c95b46817bb5a5f32a049b875f8df9c9404c9ceb
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Drop Emacs 24 compatibility code
---
 README.md    |  4 ----
 xcb-types.el | 28 ----------------------------
 2 files changed, 32 deletions(-)

diff --git a/README.md b/README.md
index 617c1978eb..a9977db082 100644
--- a/README.md
+++ b/README.md
@@ -6,7 +6,3 @@ It features an object-oriented API and permits a certain degree 
of concurrency.
 It should enable you to implement some low-level X11 applications.
 Please refer to 
[xelb.el](https://github.com/emacs-exwm/xelb/blob/master/xelb.el)
 for more details.
-
-**Note to Emacs 24 users**:
-If you install XELB from source (rather than GNU ELPA), be sure to install
-`cl-generic` package from GNU ELPA first.
diff --git a/xcb-types.el b/xcb-types.el
index a6caf98460..aade53140c 100644
--- a/xcb-types.el
+++ b/xcb-types.el
@@ -72,34 +72,6 @@ FORMAT-STRING is a string specifying the message to output, 
as in
                         ,@objects)
      nil))
 
-;; Backport some functions to Emacs 24
-
-(eval-and-compile
-  (unless (fboundp 'eieio-class-slots)
-    (defun eieio-class-slots (class)
-      (let* ((tmp (get class 'eieio-class-definition))
-             (names (aref tmp 5))
-             (initforms (aref tmp 6))
-             (types (aref tmp 8))
-             result)
-        (dotimes (i (length names))
-          (setq result (nconc result (list (vector (elt names i)
-                                                   (elt initforms i)
-                                                   (elt types i))))))
-        result))))
-
-(eval-and-compile
-  (unless (fboundp 'eieio-slot-descriptor-name)
-    (defsubst eieio-slot-descriptor-name (slot) (aref slot 0))))
-
-(eval-and-compile
-  (unless (fboundp 'cl--slot-descriptor-initform)
-    (defsubst cl--slot-descriptor-initform (slot) (aref slot 1))))
-
-(eval-when-compile
-  (unless (fboundp 'cl--slot-descriptor-type)
-    (defsubst cl--slot-descriptor-type (slot) (aref slot 2))))
-
 ;;;; Utility functions
 
 (defsubst xcb:-pack-u1 (value)