diff options
| author | Paul Lathrop <plathrop@yammer-inc.com> | 2012-03-05 14:13:24 -0800 |
|---|---|---|
| committer | Paul Lathrop <plathrop@yammer-inc.com> | 2012-03-05 14:13:24 -0800 |
| commit | b133e16fb33bec8cc19e7649efe40671d50c2e38 (patch) | |
| tree | 710544f85ba57d08e1c0d895ae22d9e79687cc21 | |
| parent | 121d878a0c87daf56498431830194dfcefa4538a (diff) | |
| download | fork-ledger-b133e16fb33bec8cc19e7649efe40671d50c2e38.tar.gz fork-ledger-b133e16fb33bec8cc19e7649efe40671d50c2e38.tar.bz2 fork-ledger-b133e16fb33bec8cc19e7649efe40671d50c2e38.zip | |
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.
| -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))))) |