diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-26 15:37:15 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-26 15:37:15 -0700 |
| commit | a40d9f721fa237ed61b6dda7d18e86d18d150db7 (patch) | |
| tree | 686289505b3986e26cef942566eed444c8492897 /lisp/ldg-report.el | |
| parent | 929175216dc55544c8c5911902014c7727a95fd7 (diff) | |
| parent | 5e0e7e0a973f8a323decbf818e66a6af3ba218fd (diff) | |
| download | fork-ledger-a40d9f721fa237ed61b6dda7d18e86d18d150db7.tar.gz fork-ledger-a40d9f721fa237ed61b6dda7d18e86d18d150db7.tar.bz2 fork-ledger-a40d9f721fa237ed61b6dda7d18e86d18d150db7.zip | |
Merge branch 'next' into ledger-mode-automatic-transactions
Diffstat (limited to 'lisp/ldg-report.el')
| -rw-r--r-- | lisp/ldg-report.el | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/lisp/ldg-report.el b/lisp/ldg-report.el index 944ae2e6..4db58494 100644 --- a/lisp/ldg-report.el +++ b/lisp/ldg-report.el @@ -319,16 +319,18 @@ Optional EDIT the command." (let ((file (match-string 1)) (line (string-to-number (match-string 2)))) (delete-region (match-beginning 0) (match-end 0)) - (set-text-properties (line-beginning-position) (line-end-position) - (list 'ledger-source (cons file (save-window-excursion - (save-excursion - (find-file file) - (widen) - (ledger-goto-line line) - (point-marker)))))) - (add-text-properties (line-beginning-position) (line-end-position) + (if file + (progn + (set-text-properties (line-beginning-position) (line-end-position) + (list 'ledger-source (cons file (save-window-excursion + (save-excursion + (find-file file) + (widen) + (ledger-goto-line line) + (point-marker)))))) + (add-text-properties (line-beginning-position) (line-end-position) (list 'face 'ledger-font-report-clickable-face)) - (end-of-line)))) + (end-of-line)))))) (goto-char data-pos))) |