Vinod Kurup <[email protected]> writes:

> I'm trying out the new ledger-mode for the first time. When I reconcile an 
> account, clear one transaction, unclear that transaction, and then save the 
> buffer, thousands of transactions get deleted. My current ledger file has 
> transactions dating back to 1991, with about 98,000 lines. After this 
> process, it only measures 19,000 lines.
>
> I haven't been able to figure out a simple pattern to which lines are 
> getting deleted. If I set ledger-narrow-on-reconcile to nil, then 
> everything works fine.
>
> I apologize for not debugging further, but since it works with that setting 
> off, I'm satisfied. I just wanted to report it in case others are seeing it 
> as well. Would be happy to provide more info, if it would help. Would also 
> be happy to find out that this is a dumb error on my part.


Shame on me: I really should report my bugs when they happen... I had
once a similar problem, but could not find exactly what was the problem
(it disappeared when using emacs -Q)

May be the attached patch could solve this? 


-- 
Rémi Vanicat
>From 31f5e6f1421e3967b374582354918cd39b910fe3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Vanicat?= <[email protected]>
Date: Mon, 22 Apr 2013 09:00:04 +0200
Subject: [PATCH] Do not use intangible property

---
 lisp/ldg-occur.el |    3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/ldg-occur.el b/lisp/ldg-occur.el
index c14ddc8..3ae1ea1 100644
--- a/lisp/ldg-occur.el
+++ b/lisp/ldg-occur.el
@@ -130,8 +130,7 @@ When REGEX is nil, unhide everything, and remove higlight"
                        buffer-matches))))
         (mapcar (lambda (ovl)
                   (overlay-put ovl ledger-occur-overlay-property-name t)
-                  (overlay-put ovl 'invisible t)
-                  (overlay-put ovl 'intangible t))
+                  (overlay-put ovl 'invisible t))
                 (push  (make-overlay (cadr (car(last buffer-matches)))
                                      (point-max)
                                      (current-buffer) t nil) overlays)))))
-- 
1.7.10.4

-- 

--- 
You received this message because you are subscribed to the Google Groups 
"Ledger" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.


Reply via email to