 
 (defun ledger-reconcile-save ()
   (interactive)
-;  (with-current-buffer ledger-buf
-;    (save-buffer))
   (dolist (buf (cons ledger-buf ledger-bufs))
     (with-current-buffer buf
       (save-buffer)))

        (set-buffer-modified-p t)))))

(defun ledger-reconcile-visit (&optional come-back)
  (progn
    (beginning-of-line)
    (let* ((where (get-text-property (1+ (point)) 'where))

				 'previous-line
				 'mouse-set-point
				 'ledger-reconcile-toggle))
      (if ledger-buffer-tracks-reconcile-buffer
	  (save-excursion
	    (ledger-reconcile-visit t)))))

(defun ledger-reconcile (account)
  (interactive "sAccount to reconcile: ")
