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

Merge pull request #280 from csrhodes/fix-ledger-iterate-regex

Browse source 
Fix ledger iterate regex
This commit is contained in:
Craig Earls 2014-04-24 06:51:58 -07:00
commit 62bdb2f13a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ledger-regex.el
View file

@ -178,8 +178,8 @@
(ledger-define-regexp iso-date
( let ((sep '(or ?- ?/)))
(rx (group
(and (group (? (= 4 num)))
(eval sep)
(and (? (and (group (= 4 num)))
(eval sep))
(group (and num (? num)))
(eval sep)
(group (and num (? num)))))))
@ -325,7 +325,7 @@
(note end-note))
(defconst ledger-iterate-regex
(concat "\\(Y\\s-+\\([0-9]+\\)\\|" ;; Catches a Y directive
(concat "\\(\\(?:Y\\|year\\)\\s-+\\([0-9]+\\)\\|" ;; Catches a Y/year directive
ledger-iso-date-regexp
"\\([ *!]+\\)" ;; mark
"\\((.*)\\)?" ;; code