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

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

[elpa] externals/ebdb dbc96c3 6/6: Fix to "stop using eieio-named"


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb dbc96c3 6/6: Fix to "stop using eieio-named"
Date: Tue, 10 Jul 2018 16:20:19 -0400 (EDT)

branch: externals/ebdb
commit dbc96c368ff3fc10289534dc707994333499edbd
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Fix to "stop using eieio-named"
    
    * ebdb.el (initialize-instance): Should have tested first...
---
 ebdb.el | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 43dc47e..fab25e1 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3611,14 +3611,14 @@ Also switch old :object-name slot name to :label."
       (setf (slot-value db 'uuid)
            (make-instance 'ebdb-field-uuid
                           :uuid (ebdb-make-uuid
-                                 (slot-value db 'uuid-prefix))))))
-  (while slots
-    (when (not (eq :object-name (car slots)))
-      (setq p (plist-put p (car slots) (nth 1 slots))))
-    (setq slots (cddr slots)))
-  (when obj-name
-    (setq p (plist-put p :label obj-name)))
-  (cl-call-next-method db p))
+                                 (slot-value db 'uuid-prefix)))))
+    (while slots
+      (when (not (eq :object-name (car slots)))
+       (setq p (plist-put p (car slots) (nth 1 slots))))
+      (setq slots (cddr slots)))
+    (when obj-name
+      (setq p (plist-put p :label obj-name)))
+    (cl-call-next-method db p)))
 
 ;;; Home-made auto saving for `eieio-persistent' objects.  The
 ;;; `ebdb-db-save' :after method deletes the auto save file, and the



reply via email to

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