 (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 ()

(defvar ledger-buf nil)
(defvar ledger-bufs nil)
(defvar ledger-acct nil)
(defcustom ledger-recon-buffer-name "*Reconcile*"
  "Name to use for reconciliation window"
  :group 'ledger)

	  (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))

