From e615d8c615c43bf1e04b0a29747f05188fd46fbd Mon Sep 17 00:00:00 2001
From: Craig Earls <enderw88@gmail.com>
Date: Mon, 11 Feb 2013 11:05:43 -0700
Subject: [PATCH] Bug 883 overlays left in buffer if file reverted.

---
 lisp/ldg-mode.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el
index 26d0ed68..0ff22417 100644
--- a/lisp/ldg-mode.el
+++ b/lisp/ldg-mode.el
@@ -38,6 +38,11 @@ customizable to ease retro-entry.")
   :type 'string
   :group 'ledger)
 
+(defun ledger-remove-overlays ()
+  (interactive)
+  "remove overlays formthe buffer, used if the buffer is reverted"
+   (remove-overlays))
+
 (defvar ledger-mode-abbrev-table)
 
 ;;;###autoload
@@ -61,6 +66,7 @@ customizable to ease retro-entry.")
     (set (make-local-variable 'pcomplete-termination-string) "")
 
     (add-hook 'post-command-hook 'ledger-highlight-xact-under-point nil t)
+    (add-hook 'before-revert-hook 'ledger-remove-overlays nil t)
     (make-variable-buffer-local 'highlight-overlay)
 
     (let ((map (current-local-map)))