diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-27 10:07:59 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-27 10:07:59 -0700 |
| commit | 3db3d23765f9e48e52ce0c7f322f6031588d5d2f (patch) | |
| tree | 891dada8833bda71452b0838da6c907f969fbc7d /lisp/ldg-xact.el | |
| parent | e5dd5344efca4851412eb21076b5715ffe99f212 (diff) | |
| parent | 1e3c795935dc5c938b78fc367ee19e1a259b0fb3 (diff) | |
| download | fork-ledger-3db3d23765f9e48e52ce0c7f322f6031588d5d2f.tar.gz fork-ledger-3db3d23765f9e48e52ce0c7f322f6031588d5d2f.tar.bz2 fork-ledger-3db3d23765f9e48e52ce0c7f322f6031588d5d2f.zip | |
Merge branch 'next' into ledger-mode-documentation
Diffstat (limited to 'lisp/ldg-xact.el')
| -rw-r--r-- | lisp/ldg-xact.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ldg-xact.el b/lisp/ldg-xact.el index f5a38ef6..8db50df2 100644 --- a/lisp/ldg-xact.el +++ b/lisp/ldg-xact.el @@ -106,7 +106,7 @@ within the transaction." (extents (ledger-find-xact-extents (point))) (transaction (buffer-substring (car extents) (cadr extents))) encoded-date) - (if (string-match "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)" date) + (if (string-match ledger-date-regex date) (setq encoded-date (encode-time 0 0 0 (string-to-number (match-string 3 date)) (string-to-number (match-string 2 date)) @@ -114,7 +114,7 @@ within the transaction." (ledger-find-slot encoded-date) (insert transaction "\n") (backward-paragraph) - (re-search-forward "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)") + (re-search-forward ledger-date-regex) (replace-match date) (re-search-forward "[1-9][0-9]+\.[0-9]+"))) |