       (let ((where (get-text-property (point) 'where))
             (face  (get-text-property (point) 'face)))
         (if (and (eq face 'bold)
-                 (when (is-stdin (car where))))
-            (with-current-buffer ledger-buf
+                 (ledger-reconcile-get-buffer where))
+            (with-current-buffer (ledger-reconcile-get-buffer where)
               (goto-char (cdr where))
               (ledger-toggle-current 'cleared))))
       (forward-line 1)))

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


     (use-local-map map)))

(provide 'ldg-reconcile)
