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

Bug 894 Changing reconciliation account now repositions point in the Reconcile buffer correctly.

Browse source
This commit is contained in:
Craig Earls 2013-02-14 19:38:42 -07:00
parent d8f0b0fa83
commit 089716fb13
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ldg-reconcile.el
View file

@ -74,7 +74,7 @@ numbers"
; split arguments like the shell does, so you need to ; split arguments like the shell does, so you need to
; specify the individual fields in the command line. ; specify the individual fields in the command line.
"balance" "--limit" "cleared or pending" "balance" "--limit" "cleared or pending"
"--format" "(\"%(amount)\")" account) "--format" "(\"%(display_total)\")" account)
(setq val (read (buffer-substring-no-properties (point-min) (point-max))))))) (setq val (read (buffer-substring-no-properties (point-min) (point-max)))))))
(defun ledger-display-balance () (defun ledger-display-balance ()
@ -363,7 +363,8 @@ POSTING is used in `ledger-clear-whole-transactions' is nil."
(call-interactively #'ledger-read-commodity-string)) (call-interactively #'ledger-read-commodity-string))
(unless (get-buffer-window rbuf) (unless (get-buffer-window rbuf)
(ledger-reconcile-open-windows buf rbuf)) (ledger-reconcile-open-windows buf rbuf))
(ledger-reconcile-refresh)) (ledger-reconcile-refresh)
(goto-char (point-min)))
(progn ;; no recon-buffer, starting from scratch. (progn ;; no recon-buffer, starting from scratch.
(add-hook 'after-save-hook 'ledger-reconcile-refresh-after-save nil t) (add-hook 'after-save-hook 'ledger-reconcile-refresh-after-save nil t)