[elpa] externals/rec-mode 6c8bdc297a 1/2: Fix EIEIO leftovers from various places

[ELPA Syncer]

branch: externals/rec-mode
commit 6c8bdc297a8746ee656dbf5ab100fea75ee1a97c
Author: Mykhailo Shevchuck <mail+dev@mshevchuk.com>
Commit: Antoine Kalmbach <ane@iki.fi>

    Fix EIEIO leftovers from various places
---
 rec-mode.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rec-mode.el b/rec-mode.el
index 80337d46f0..298bd4454e 100644
--- a/rec-mode.el
+++ b/rec-mode.el
@@ -500,7 +500,7 @@ then nil is returned."
         (delete-region (point) (point-max))
         (setq value (buffer-substring-no-properties (point-min)
                                                     (point-max))))
-      (setf (slot-value field 'value) value)
+      (setf (rec-field-value field) value)
       field)))
 
 ;;;; Get entities under pointer
@@ -750,7 +750,7 @@ this function returns nil."
   ;; If a descriptor has more than a %rec field, then the first one is
   ;; used.  The rest are ignored.
   (mapcar (lambda (descriptor)
-            (slot-value descriptor 'type))
+            (rec-record-descriptor-type descriptor))
           rec-buffer-descriptors))
 
 (defun rec-type-p (type)
@@ -1983,7 +1983,7 @@ Prefix arguments N moves next by N records."
           (user-error
            (if rec-selection-current-selection
                (format "No more records of type %s in selection %s"
-                       (slot-value rec-selection-current-selection 'type)
+                       (rec-record-type rec-selection-current-selection)
                        (rec-selection-expr rec-selection-current-selection))
              (format "No more records in selection %s" (rec-selection-expr 
rec-selection-current-selection))))))
     (user-error "No active selection")))
@@ -2089,7 +2089,7 @@ Aims to be backwards compatible with Emacs versions
   (let* ((results (rec--parse-sexp-records query))
          (descriptor (cl-find-if #'rec-record-descriptor-p results))
          (type (if descriptor
-                   (slot-value descriptor 'type)
+                   (rec-record-descriptor-type descriptor)
                  "Record"))
          (data (if descriptor
                    (cdr results)