diff options
| author | Rémi Vanicat <vanicat@debian.org> | 2013-02-08 10:40:48 +0100 |
|---|---|---|
| committer | Rémi Vanicat <vanicat@debian.org> | 2013-02-08 10:45:47 +0100 |
| commit | ca554f6b5b407415a006be3550b67536acd312a7 (patch) | |
| tree | 3ed8d4d37d621ece3dbbd8ff120b9e63017aa2fd /lisp | |
| parent | 385cbd25b9905b16a4c7723bb4e5a5813e84aab0 (diff) | |
| download | fork-ledger-ca554f6b5b407415a006be3550b67536acd312a7.tar.gz fork-ledger-ca554f6b5b407415a006be3550b67536acd312a7.tar.bz2 fork-ledger-ca554f6b5b407415a006be3550b67536acd312a7.zip | |
Add € and £ to currency one could use in new ledger mode
Diffstat (limited to 'lisp')
| -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 05b9d352..5d5381ae 100644 --- a/lisp/ldg-post.el +++ b/lisp/ldg-post.el @@ -84,7 +84,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) |