branch: externals/ebdb
commit dbc96c368ff3fc10289534dc707994333499edbd
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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
