Merge pull request #452 from ledger/fix-visit-source

Fix visit source

Author: purcell

ledger-report.el

@@ -1,4 +1,4 @@
-;;; ledger-report.el --- Helper code for use with the "ledger" command-line tool  -*- lexical-binding: t; -*-
+;; ledger-report.el --- Helper code for use with the "ledger" command-line tool  -*- lexical-binding: t; -*-
 
 ;; Copyright (C) 2003-2016 John Wiegley (johnw AT gnu DOT org)
 
@@ -553,12 +553,14 @@ specific posting at point instead."
   (interactive)
   (let* ((prop (get-text-property (point) 'ledger-source))
          (file (car prop))
-         (line (cdr prop)))
-    (when (and file line)
+         (xact-position (cdr prop)))
+    (when (and file xact-position)
       (find-file-other-window file)
       (widen)
-      (goto-char (point-min))
-      (forward-line (1- line))
+      (if (markerp xact-position) 
+	  (goto-char xact-position)
+ 	(progn (goto-char (point-min))
+	 (forward-line (1- xact-position))))
       (when ledger-report-links-beginning-of-xact
         (ledger-navigate-beginning-of-xact)))))