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

        (delete-region (point) (1+ (line-end-position)))
        (set-buffer-modified-p t)))))

(defun ledger-reconcile-visit ()
  (interactive)
  (let* ((where (get-text-property (point) 'where))
	 (target-buffer (ledger-reconcile-get-buffer 
			 where)))
    (when target-buffer
      (switch-to-buffer-other-window target-buffer)
      (goto-char (cdr where))
      (recenter))))

(defun ledger-reconcile-save ()
  (interactive)

		(error (buffer-string)))
	      (read (current-buffer))))))
    (if (> (length items) 0)
	(progn
	  (dolist (item items)
	    (let ((index 1))
	      (dolist (xact (nthcdr 5 item))
		(let ((beg (point))  
		      (where (ledger-marker-where-xact-is item)))
		  (insert (format "%s %-4s %-30s %-30s %15s\n"
				  (format-time-string "%Y/%m/%d" (nth 2 item))
				  (if (nth 3 item)
				      (nth 3 item)
				      "")
				  (nth 4 item) (nth 1 xact) (nth 2 xact)))
		  (if (nth 3 xact)
		      (set-text-properties beg (1- (point))
					   (list 'face 'ledger-font-reconciler-cleared-face 
						 'where where))
		      (set-text-properties beg (1- (point))
					   (list 'face 'ledger-font-reconciler-uncleared-face 
						 'where where))))
		(setq index (1+ index)))))
	  (goto-char (point-max))
	  (delete-char -1))
	(insert (concat "There are no uncleared entries for " account)))
    (goto-char (point-min))
    (set-buffer-modified-p nil)
