[elpa] externals/ebdb 01262e3 277/350: Mark EBDB buffers as modified after edits

[Eric Abrahamsen]

branch: externals/ebdb
commit 01262e356f17b8d5a51502fff2c45cca5fcb5ad6
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Mark EBDB buffers as modified after edits
    
    * ebdb-com.el (ebdb-with-record-edits, ebdb-create-record): Mark
      all *EBDB* buffers as modified.
---
 ebdb-com.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ebdb-com.el b/ebdb-com.el
index d9c74ed..2be9e91 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1556,6 +1556,9 @@ actually-editable records."
         (run-hook-with-args 'ebdb-change-hook ,(car spec))
         ,@body
         (run-hook-with-args 'ebdb-after-change-hook ,(car spec)))
+       (dolist (b (buffer-list))
+        (when (derived-mode-p 'ebdb-mode)
+          (set-buffer-modified-p t)))
        (ebdb-redisplay-records ,editable-records 'reformat))))
 
 ;;;###autoload
@@ -1578,7 +1581,10 @@ in `ebdb-db-list', using its default record class.  Use
         (ebdb-db-add-record db record)
         (ebdb-init-record record)
         (run-hook-with-args 'ebdb-after-change-hook record)
-        (ebdb-display-records (list record) ebdb-default-multiline-formatter 
t))
+        (ebdb-display-records (list record) ebdb-default-multiline-formatter t)
+        (dolist (b (buffer-list))
+          (when (derived-mode-p 'ebdb-mode)
+            (set-buffer-modified-p t))))
      (ebdb-readonly-db
       (message "%s is read-only" (ebdb-string db)))
      (ebdb-unsynced-db