sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bug 883 overlays left in buffer if file reverted.

Browse source
This commit is contained in:
Craig Earls 2013-02-11 11:05:43 -07:00
parent e245e41d6b
commit e615d8c615
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ldg-mode.el
View file

@ -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)))