account: erase buffer before inserting image

* account.el (account-agenda-export-to-svg): Previously I did not
  erase the buffer before displaying the image.  This means if the
  image buffer was already used, the function would fail to insert the
  image again.  Now this is fixed.

1 files changed, 4 insertions, 2 deletions

diff --git a/account.el b/account.el
index d21a2e8..00c6e61 100644
--- a/account.el
+++ b/account.el
@@ -856,8 +856,10 @@ the displayed information.")
              result)
             (with-current-buffer
                 (get-buffer-create svg-buffer-name)
-              (svg-print svg)
-              (image-mode))
+              (let ((inhibit-read-only t))
+                (erase-buffer)
+                (svg-print svg)
+                (image-mode)))
             (display-buffer
              svg-buffer-name
              (list