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

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

[elpa] externals/ebdb 123ebae 09/33: Base ebdb-db-save method should be


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 123ebae 09/33: Base ebdb-db-save method should be on ebdb-db class
Date: Sun, 3 Sep 2017 17:02:20 -0400 (EDT)

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

    Base ebdb-db-save method should be on ebdb-db class
    
    * ebdb.el (ebdb-db-save): This shouldn't be specialized for
      ebdb-db-file -- all db classes will use this behavior.
---
 ebdb.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index 2b3e2f7..ba3c97b 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -3650,7 +3650,7 @@ the persistent save, or allow them to propagate.")
             (ebdb-db-dirty db))
     (ebdb-db-editable db)))
 
-(cl-defmethod ebdb-db-save ((db ebdb-db-file) &optional _prompt force)
+(cl-defmethod ebdb-db-save ((db ebdb-db) &optional _prompt force)
   "Mark DB and all its records as \"clean\" after saving."
   (let ((recs (ebdb-dirty-records (slot-value db 'records))))
     (when (or force recs (slot-value db 'dirty))
@@ -3658,7 +3658,7 @@ the persistent save, or allow them to propagate.")
       (dolist (r recs)
        (setf (slot-value r 'dirty) nil))
       (condition-case err
-         (cl-call-next-method)
+         (eieio-persistent-save db)
        (error
         (setf (slot-value db 'dirty) t)
         (dolist (r recs)



reply via email to

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