 	  (quit-window (get-buffer-window rbuf))
 	  (kill-buffer rbuf)))
     (add-hook 'after-save-hook 'ledger-reconcile-refresh-after-save)
+    (add-hook 'post-command-hook 'ledger-reconcile-track-xact)
     (if ledger-fold-on-reconcile
 	(ledger-occur-mode account buf))
 

      
      (select-window recon-window))))

(defun ledger-reconcile (account)
  (interactive "sAccount to reconcile: ")
  (let ((buf (current-buffer))

(defcustom ledger-fold-on-reconcile t 
  "if t, limit transactions shown in main buffer to those
   matching the reconcile regex"
  :group 'ledger)

(defcustom ledger-buffer-tracks-reconcile-buffer t
  "if t, then when the cursor is moved to a new xact in the recon
   window, then that transaction will be shown in its source
   buffer."
  :group 'ledger)

(defun ledger-display-balance ()
