hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

delete overlay

Browse Source
This commit is contained in:
Hideyuki Tanaka 2012-02-13 01:25:49 +09:00
parent 9d1fe778a6
commit 63ec23c162
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
elisp/ghc-info.el
View File

@ -69,6 +69,13 @@
(defvar *annot-ovl* (make-overlay 0 0)) (defvar *annot-ovl* (make-overlay 0 0))
(overlay-put *annot-ovl* 'face 'region) (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) (defun ghc-show-annot0 (ask modname)
(let* ((pt (point)) (let* ((pt (point))
(ln (int-to-string (line-number-at-pos))) (ln (int-to-string (line-number-at-pos)))