From 63ec23c162df6b1154b5018f0d4de8bb6f8e77be Mon Sep 17 00:00:00 2001
From: Hideyuki Tanaka <tanaka.hideyuki@gmail.com>
Date: Mon, 13 Feb 2012 01:25:49 +0900
Subject: [PATCH] delete overlay

---
 elisp/ghc-info.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/elisp/ghc-info.el b/elisp/ghc-info.el
index 6eb83e0..af4172d 100644
--- a/elisp/ghc-info.el
+++ b/elisp/ghc-info.el
@@ -69,6 +69,13 @@
 (defvar *annot-ovl* (make-overlay 0 0))
 (overlay-put *annot-ovl* 'face 'region)
 
+(defun delete-annot-ovl (beg end len)
+  (delete-overlay *annot-ovl*))
+
+(setq after-change-functions
+      (cons 'delete-annot-ovl
+            after-change-functions))
+
 (defun ghc-show-annot0 (ask modname)
   (let* ((pt (point))
          (ln (int-to-string (line-number-at-pos)))