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

ledger.el: fix broken ledger reconcile

Browse source
This commit is contained in:
Levin Du 2008-07-31 16:08:16 +08:00
parent 19fcf4c99d
commit 37cf3c6f6e
1 changed files with 8 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
ledger.el
View file

@ -510,14 +510,14 @@ dropped."
(unless (looking-at "[0-9]")
(error (buffer-string)))
(while (not (eobp))
(setq cleared
(cons (save-excursion
(goto-line (1+ (read (current-buffer))))
(point-marker)) cleared))
(push (read (current-buffer)) cleared)
(forward-line)))))
(goto-char (point-min))
(with-current-buffer ledger-buf
(setq cleared (mapcar 'copy-marker (nreverse cleared))))
(setq cleared (mapcar (lambda (line)
(goto-line line)
(point-marker))
(nreverse cleared))))
(let ((inhibit-redisplay t))
(dolist (pos cleared)
(while (and (not (eobp))
@ -616,13 +616,9 @@ dropped."
(with-current-buffer buf
(cons
(nth 0 item)
(if ledger-clear-whole-entries
(save-excursion
(goto-line (nth 1 item))
(point-marker))
(save-excursion
(goto-line (nth 0 xact))
(point-marker)))))))
(save-excursion
(goto-line (nth 0 xact))
(point-marker))))))
(insert (format "%s %-30s %-25s %15s\n"
(format-time-string "%m/%d" (nth 2 item))
(nth 4 item) (nth 1 xact) (nth 2 xact)))