[elpa] externals/ebdb 0ccfc0a 215/350: Write generics for ebdb-db-add/remove-record

[Eric Abrahamsen]

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

    Write generics for ebdb-db-add/remove-record
    
    * ebdb.el (ebdb-db-add-record, ebdb-db-remove-record): Mostly for
      eldoc purposes.
---
 ebdb.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 2acd3f8..b542ceb 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3051,6 +3051,12 @@ the persistent save, or allow them to propagate."
     (when (file-exists-p auto-save-file)
       (delete-file auto-save-file))))
 
+(cl-defgeneric ebdb-db-add-record (db record)
+  "Associate RECORD with DB.")
+
+(cl-defgeneric ebdb-db-remove-record (db record)
+  "Disassociate RECORD from DB.")
+
 (cl-defmethod ebdb-db-add-record :before ((db ebdb-db) _record)
   (ebdb-db-editable db))
 
@@ -3058,7 +3064,6 @@ the persistent save, or allow them to propagate."
   (ebdb-db-editable db))
 
 (cl-defmethod ebdb-db-add-record ((db ebdb-db) record)
-  "Associate RECORD with DB."
   ;; This function gets called when creating a new record, and also
   ;; when "adopting" an existing record.  In the first case, it
   ;; won't have a UUID slot.
@@ -3076,7 +3081,6 @@ the persistent save, or allow them to propagate."
   record)
 
 (cl-defmethod ebdb-db-remove-record ((db ebdb-db) record)
-  "Disassociate RECORD from DB."
   (object-remove-from-list db 'records record)
   (object-remove-from-list (ebdb-record-cache record)
                           'database db)