 (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)
    (if ledger-fold-on-reconcile
	(ledger-occur-mode account buf))


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