branch: externals/ebdb
commit 01262e356f17b8d5a51502fff2c45cca5fcb5ad6
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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
