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

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

[elpa] externals/ebdb 9aab682 088/350: Add a generic for ebdb-db-editabl


From: Eric Abrahamsen
Subject: [elpa] externals/ebdb 9aab682 088/350: Add a generic for ebdb-db-editable
Date: Mon, 14 Aug 2017 11:46:11 -0400 (EDT)

branch: externals/ebdb
commit 9aab682a6ecb70d4d109f1c7227c57aa29bf58eb
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Add a generic for ebdb-db-editable
    
    * ebdb.el (ebdb-db-editable): It's good to have the arg signature in
      eldoc.
---
 ebdb.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ebdb.el b/ebdb.el
index b894680..ee987f8 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -2989,14 +2989,16 @@ that doesn't belong to a different database."
 (cl-defmethod ebdb-db-load :before ((db ebdb-db))
   (run-hook-with-args 'ebdb-before-read-db-hook db))
 
-(cl-defmethod ebdb-db-editable ((db ebdb-db) &optional noerror reload)
+(cl-defgeneric ebdb-db-editable (db &optional noerror reload)
   "Check that DB is in an editable state, and signal an error if
 it isn't.  This method is called before most operations that
 would alter DB.
 
 With optional argument NOERROR, return nil instead of signalling
 an error.  With optional argument RELOAD, reload DB if it is out
-of sync but has no local modifications."
+of sync but has no local modifications.")
+
+(cl-defmethod ebdb-db-editable ((db ebdb-db) &optional noerror reload)
   (let ((err
         (cond ((slot-value db 'read-only)
                'ebdb-readonly-db)



reply via email to

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