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

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

[elpa] externals/ebdb 5b4d834 01/15: Organization/role delete method nee


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 5b4d834 01/15: Organization/role delete method needs to be an :around
Date: Sun, 1 Apr 2018 06:02:44 -0400 (EDT)

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

    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)))
 



reply via email to

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