From d399846a0ffe0bba286fada2fa2a5e99dd2a1001 Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Sat, 17 Feb 2001 01:06:55 +0000
Subject: [PATCH] wrap with account editing primitives

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3666 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/engine/Account.c | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/engine/Account.c b/src/engine/Account.c
index aac2b7e2dc..d3342f5e16 100644
--- a/src/engine/Account.c
+++ b/src/engine/Account.c
@@ -445,11 +445,16 @@ xaccAccountGetSlots(Account * account) {
 void
 xaccAccountSetSlots(Account *account, kvp_frame *frame)
 {
-    if(account->kvp_data)
-    {
-        kvp_frame_delete (account->kvp_data);
-    }
-    account->kvp_data = frame;
+  if (!account) return;
+  if (frame == account->kvp_data) return;
+
+  xaccAccountBeginEdit (account);   
+  if(account->kvp_data)
+  {
+      kvp_frame_delete (account->kvp_data);
+  }
+  account->kvp_data = frame;
+  xaccAccountCommitEdit (account);   
 }