diff options
| author | John Wiegley <johnw@newartisans.com> | 2012-03-11 18:50:00 -0700 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2012-03-11 18:50:00 -0700 |
| commit | ed71421c8a55a642969309f2a3f9baa49a37bb8b (patch) | |
| tree | b042443df4afe4fbcde95ab93add860ac4571ce5 | |
| parent | 8fe68c5fc3a71fa17cf309f9b87b5089ecce8996 (diff) | |
| parent | b133e16fb33bec8cc19e7649efe40671d50c2e38 (diff) | |
| download | fork-ledger-ed71421c8a55a642969309f2a3f9baa49a37bb8b.tar.gz fork-ledger-ed71421c8a55a642969309f2a3f9baa49a37bb8b.tar.bz2 fork-ledger-ed71421c8a55a642969309f2a3f9baa49a37bb8b.zip | |
Merge pull request #57 from plathrop/bug/emacs-reconcile-visit
Fix ledger-reconcile-visit.
| -rw-r--r-- | lisp/ledger.el | 2 |
1 files changed, 1 insertions, 1 deletions
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))))) |