diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-14 19:38:42 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-14 19:38:42 -0700 |
| commit | 089716fb13911ea6a1c044ed5d435809f9e2fff6 (patch) | |
| tree | 16e225fff81c5e4bdf9215b2742179a821113a41 /lisp/ldg-reconcile.el | |
| parent | d8f0b0fa83c6c6984f79dbb918e324a847cdb094 (diff) | |
| download | fork-ledger-089716fb13911ea6a1c044ed5d435809f9e2fff6.tar.gz fork-ledger-089716fb13911ea6a1c044ed5d435809f9e2fff6.tar.bz2 fork-ledger-089716fb13911ea6a1c044ed5d435809f9e2fff6.zip | |
Bug 894 Changing reconciliation account now repositions point in the Reconcile buffer correctly.
Diffstat (limited to 'lisp/ldg-reconcile.el')
| -rw-r--r-- | lisp/ldg-reconcile.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ldg-reconcile.el b/lisp/ldg-reconcile.el index b632a070..ea8ff06e 100644 --- a/lisp/ldg-reconcile.el +++ b/lisp/ldg-reconcile.el @@ -74,7 +74,7 @@ numbers" ; split arguments like the shell does, so you need to ; specify the individual fields in the command line. "balance" "--limit" "cleared or pending" - "--format" "(\"%(amount)\")" account) + "--format" "(\"%(display_total)\")" account) (setq val (read (buffer-substring-no-properties (point-min) (point-max))))))) (defun ledger-display-balance () @@ -363,7 +363,8 @@ POSTING is used in `ledger-clear-whole-transactions' is nil." (call-interactively #'ledger-read-commodity-string)) (unless (get-buffer-window rbuf) (ledger-reconcile-open-windows buf rbuf)) - (ledger-reconcile-refresh)) + (ledger-reconcile-refresh) + (goto-char (point-min))) (progn ;; no recon-buffer, starting from scratch. (add-hook 'after-save-hook 'ledger-reconcile-refresh-after-save nil t) |