diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-03 16:30:36 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-03 16:30:36 -0700 |
| commit | 1a52899673f02b87b065c5b29755394581b485c9 (patch) | |
| tree | 17c5d8e1c07a2678d7fae00490fac49576343655 /lisp/ldg-complete.el | |
| parent | 519e57ca1fac01ea057bea8263c6cb06a8ac4e7e (diff) | |
| download | fork-ledger-1a52899673f02b87b065c5b29755394581b485c9.tar.gz fork-ledger-1a52899673f02b87b065c5b29755394581b485c9.tar.bz2 fork-ledger-1a52899673f02b87b065c5b29755394581b485c9.zip | |
Fix copy-at-point and more regex consolidation and cleanup
Diffstat (limited to 'lisp/ldg-complete.el')
| -rw-r--r-- | lisp/ldg-complete.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ldg-complete.el b/lisp/ldg-complete.el index 3462c0bb..0be4f438 100644 --- a/lisp/ldg-complete.el +++ b/lisp/ldg-complete.el @@ -52,7 +52,7 @@ (save-excursion (goto-char (point-min)) (while (re-search-forward - ledger-xact-payee-regex nil t) ;; matches first line + ledger-payee-any-status-regex nil t) ;; matches first line (unless (and (>= origin (match-beginning 0)) (< origin (match-end 0))) (setq payees-list (cons (match-string-no-properties 3) @@ -69,7 +69,7 @@ Return tree structure" (save-excursion (goto-char (point-min)) (while (re-search-forward - ledger-complete-account-regex nil t) + ledger-account-any-status-regex nil t) (unless (and (>= origin (match-beginning 0)) (< origin (match-end 0))) (setq account-elements @@ -153,7 +153,7 @@ Does not use ledger xact" (setq rest-of-name (match-string 3)) ;; Start copying the postings (forward-line) - (while (looking-at ledger-post-account-regex) + (while (looking-at ledger-complete-account-regex) (setq xacts (cons (buffer-substring-no-properties (line-beginning-position) (line-end-position)) |