 (defun ledger-reconcile-delete ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (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))
         (ledger-delete-current-entry))
       (let ((inhibit-read-only t))

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



     (use-local-map map)))

(provide 'ldg-reconcile)
