From b133e16fb33bec8cc19e7649efe40671d50c2e38 Mon Sep 17 00:00:00 2001
From: Paul Lathrop <plathrop@yammer-inc.com>
Date: Mon, 5 Mar 2012 14:13:24 -0800
Subject: Fix ledger-reconcile-visit.

Removes a (apparently) un-necessary check on the car of the 'where'
text property, and instead checks that the cdr is a valid marker
object. May not be the correct fix for this problem, but *does* work.
---
 lisp/ledger.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ledger.el b/lisp/ledger.el
index 1c8aade3..30677f1c 100644
--- a/lisp/ledger.el
+++ b/lisp/ledger.el
@@ -545,7 +545,7 @@ dropped."
 (defun ledger-reconcile-visit ()
   (interactive)
   (let ((where (get-text-property (point) 'where)))
-    (when (or (equal (car where) "<stdin>") (equal (car where) "/dev/stdin"))
+    (when (markerp (cdr where))
       (switch-to-buffer-other-window ledger-buf)
       (goto-char (cdr where)))))
 
-- 
cgit v1.2.3