diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-02 23:13:23 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-02 23:13:23 -0700 |
| commit | 519e57ca1fac01ea057bea8263c6cb06a8ac4e7e (patch) | |
| tree | 83529f38b2fb22b4ac5e29c3cc4c4c6047be5309 /lisp/ldg-mode.el | |
| parent | 86d0fd87c49e20b0f5262e7ae48234986584b750 (diff) | |
| download | ledger-519e57ca1fac01ea057bea8263c6cb06a8ac4e7e.tar.gz ledger-519e57ca1fac01ea057bea8263c6cb06a8ac4e7e.tar.bz2 ledger-519e57ca1fac01ea057bea8263c6cb06a8ac4e7e.zip | |
Consolidated all major regexes into ldg-regex. Only major exception are the regex in ledger context at point.
Diffstat (limited to 'lisp/ldg-mode.el')
| -rw-r--r-- | lisp/ldg-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ldg-mode.el b/lisp/ldg-mode.el index c9814918..df9dda87 100644 --- a/lisp/ldg-mode.el +++ b/lisp/ldg-mode.el @@ -238,7 +238,7 @@ correct chronological place in the buffer." exit-code) (unless insert-at-point (let ((date (car args))) - (if (string-match "\\([0-9]+\\)[-/]\\([0-9]+\\)[-/]\\([0-9]+\\)" date) + (if (string-match ledger-iso-date-regex date) (setq date (encode-time 0 0 0 (string-to-number (match-string 3 date)) (string-to-number (match-string 2 date)) |