    (equal file "/dev/stdin")))
 
 (defun ledger-reconcile-get-buffer (where)
-;  (when (is-stdin (car where))
-;    ledger-buf))
   (if (bufferp (car where))
       (car where)
       (error "buffer not set")))

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

    ;create the *Reconcile* window directly below the ledger buffer.
    (with-current-buffer
	(progn
	  (set-window-buffer
	   (split-window (get-buffer-window (current-buffer)) nil nil) 
	   (get-buffer-create ledger-recon-buffer-name))
	  (get-buffer ledger-recon-buffer-name))
      (ledger-reconcile-mode)
      (set (make-local-variable 'ledger-buf) buf)
      (set (make-local-variable 'ledger-acct) account)

   buffer."
  :group 'ledger)

(defcustom ledger-reconcile-force-window-bottom nil
  "If t make the reconcile window appear along the bottom of the
   register window and resize"
  :group 'ledger)

(defun ledger-display-balance ()
  "Calculate the cleared balance of the account being reconciled"
  (interactive)
