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


     (use-local-map map)))

(provide 'ldg-reconcile)

(defun ledger-reconcile-delete ()
  (interactive)
  (let ((where (get-text-property (point) 'where)))
    (when (is-stdin (car where))
      (with-current-buffer ledger-buf
        (goto-char (cdr where))
        (ledger-delete-current-entry))
      (let ((inhibit-read-only t))
