branch: externals/ebdb
commit 5b4d8345ed93f7719b7ad4e9b0d1c1fb3bd6a86b
Author: Eric Abrahamsen <e...@ericabrahamsen.net>
Commit: Eric Abrahamsen <e...@ericabrahamsen.net>
Organization/role delete method needs to be an :around
* ebdb.el (ebdb-record-delete-field): Otherwise it hits the existing
:around method, which first checks which slot on the organization
record can accept the role field, and then raises an error.
---
ebdb.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index d3409fb..6f7a299 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3423,9 +3423,9 @@ appropriate person record."
(let ((record (ebdb-gethash (slot-value old-field 'record-uuid) 'uuid)))
(cl-call-next-method record old-field new-field)))
-(cl-defmethod ebdb-record-delete-field ((_record ebdb-record-organization)
- (field ebdb-field-role)
- &optional slot)
+(cl-defmethod ebdb-record-delete-field :around ((_record
ebdb-record-organization)
+ (field ebdb-field-role)
+ &optional slot)
(let ((record (ebdb-gethash (slot-value field 'record-uuid) 'uuid)))
(cl-call-next-method record field slot)))
