closql-oref: Adapt to change in Emacs 27

magit · Nov 28, 2019 · cb16a57 · cb16a57
1 parent 4a0c561
commit cb16a57
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/closql.el b/closql.el
@@ -65,9 +65,13 @@
   (cl-check-type obj (or eieio-object class))
   (let* ((class (cond ((symbolp obj)
                        (error "eieio-oref called on a class: %s" obj)
-                       (let ((c (cl--find-class obj)))
-                         (if (eieio--class-p c) (eieio-class-un-autoload obj))
-                         c))
+                       (cond
+                        ((fboundp 'eieio--full-class-object) ; Emacs >= 27
+                         (eieio--full-class-object obj))
+                        ((fboundp 'eieio-class-un-autoload) ; Emacs < 27
+                         (let ((c (cl--find-class obj)))
+                           (if (eieio--class-p c) (eieio-class-un-autoload obj))
+                           c))))
                       (t (eieio--object-class obj))))
          (c (eieio--slot-name-index class slot)))
     (if (not c)