sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix ledger-reconcile-visit.

Browse source 
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.
This commit is contained in:
Paul Lathrop 2012-03-05 14:13:24 -08:00
parent 121d878a0c
commit b133e16fb3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ledger.el
View file

@ -545,7 +545,7 @@ dropped."
(defun ledger-reconcile-visit () (defun ledger-reconcile-visit ()
(interactive) (interactive)
(let ((where (get-text-property (point) 'where))) (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) (switch-to-buffer-other-window ledger-buf)
(goto-char (cdr where))))) (goto-char (cdr where)))))