diff options
| author | John Wiegley <johnw@newartisans.com> | 2013-02-08 03:15:10 -0800 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2013-02-08 03:15:10 -0800 |
| commit | 995aa43778ebe11fd588bc5ae50b2c9cd99891bf (patch) | |
| tree | 05db385af402971f216b838063e5e9b5343493ad /lisp/ldg-post.el | |
| parent | 29f409ce723e65df7cfa28be059627a084297aba (diff) | |
| parent | ca554f6b5b407415a006be3550b67536acd312a7 (diff) | |
| download | fork-ledger-995aa43778ebe11fd588bc5ae50b2c9cd99891bf.tar.gz fork-ledger-995aa43778ebe11fd588bc5ae50b2c9cd99891bf.tar.bz2 fork-ledger-995aa43778ebe11fd588bc5ae50b2c9cd99891bf.zip | |
Merge pull request #146 from vanicat/t/other-currency
Add € and £ to currency one could use in new ledger mode
Diffstat (limited to 'lisp/ldg-post.el')
| -rw-r--r-- | lisp/ldg-post.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ldg-post.el b/lisp/ldg-post.el index 411911d9..ff664b1d 100644 --- a/lisp/ldg-post.el +++ b/lisp/ldg-post.el @@ -105,7 +105,7 @@ to choose from." (goto-char pos))) (defun ledger-next-amount (&optional end) - (when (re-search-forward "\\( \\|\t\\| \t\\)[ \t]*-?\\([A-Z$]+ *\\)?\\(-?[0-9,]+?\\)\\(.[0-9]+\\)?\\( *[A-Z$]+\\)?\\([ \t]*@@?[^\n;]+?\\)?\\([ \t]+;.+?\\)?$" (marker-position end) t) + (when (re-search-forward "\\( \\|\t\\| \t\\)[ \t]*-?\\([A-Z$€£]+ *\\)?\\(-?[0-9,]+?\\)\\(.[0-9]+\\)?\\( *[A-Z$€£]+\\)?\\([ \t]*@@?[^\n;]+?\\)?\\([ \t]+;.+?\\)?$" (marker-position end) t) (goto-char (match-beginning 0)) (skip-syntax-forward " ") (- (or (match-end 4) |