         (account ledger-acct)
         (inhibit-read-only t)
         cleared)
-;    (when (is-stdin (car where))
-;      (with-current-buffer ledger-buf
     (when (ledger-reconcile-get-buffer where)
       (with-current-buffer (ledger-reconcile-get-buffer where)
 	(goto-char (cdr where))
-	(setq cleared (ledger-toggle-current-entry)))
+	(setq cleared (ledger-toggle-current)))
 	;remove the existing face and add the new face
       (remove-text-properties (line-beginning-position)
 			      (line-end-position)


(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)
  (interactive)
  (progn
    (beginning-of-line)
    (let* ((where (get-text-property (1+ (point)) 'where))
