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

Adding goto EOL to fix issue where re-search-forward was including ledger report data in the text properties.

Browse source
This commit is contained in:
adamsrl 2012-10-15 11:47:29 -05:00
parent 7b11dad404
commit 6094c202c1
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/ldg-report.el
View file

@ -275,6 +275,7 @@ the default."
(delete-region (match-beginning 0) (match-end 0)) (delete-region (match-beginning 0) (match-end 0))
(set-text-properties (line-beginning-position) (line-end-position) (set-text-properties (line-beginning-position) (line-end-position)
(list 'ledger-source (cons file line))) (list 'ledger-source (cons file line)))
(end-of-line)
(let* ((fullpath (expand-file-name file)) (let* ((fullpath (expand-file-name file))
(entry (assoc fullpath ledger-report-patch-alist))) (entry (assoc fullpath ledger-report-patch-alist)))
(if entry (if entry
@ -282,15 +283,13 @@ the default."
(push (cons (expand-file-name file) (push (cons (expand-file-name file)
(list (current-buffer))) (list (current-buffer)))
ledger-report-patch-alist)) ledger-report-patch-alist))
(add-to-list 'files-in-report fullpath))) (add-to-list 'files-in-report fullpath))))
(dolist (path files-in-report)
(let ((buf (get-file-buffer path)))
(if (and buf (buffer-live-p buf))
(ledger-report-patch-reports buf)))))
(goto-char data-pos)))
;; Disable john's "monkey patching" because it didn't work
;; (dolist (path files-in-report)
;; (let ((buf (get-file-buffer path)))
;; (if (and buf (buffer-live-p buf))
;; (ledger-report-patch-reports buf))))))))
)
(goto-char data-pos) )))
(defun ledger-report-visit-source () (defun ledger-report-visit-source ()
(interactive) (interactive)