branch: externals/ebdb
commit fcf070283930af1f7835f4c96b24b99bffb14e5e
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Mark EBDB buffers as unmodified after save
* ebdb.el (ebdb-save): After ebdb-save, all *EBDB* buffers should be
"unmodified".
---
ebdb.el | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/ebdb.el b/ebdb.el
index d0632fe..3e24e93 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -1013,7 +1013,7 @@ first one."
:type (or null ebdb-field-mail)
:initform nil)
(fields
- :initarg :fields
+ :initarg :fields
:type (list-of ebdb-field)
:initform nil)
(defunct
@@ -4939,6 +4939,10 @@ If PROMPT is non-nil prompt before saving."
(message "Saving the EBDB...")
(dolist (s ebdb-db-list)
(ebdb-db-save s prompt))
+ (dolist (b (buffer-list))
+ (with-current-buffer b
+ (when (derived-mode-p 'ebdb-mode)
+ (set-buffer-modified-p nil))))
(message "Saving the EBDB... done"))
;;;###autoload
