diff options
| author | Rémi Vanicat <vanicat@debian.org> | 2011-04-06 19:42:29 +0200 |
|---|---|---|
| committer | Rémi Vanicat <vanicat@debian.org> | 2011-04-06 19:42:29 +0200 |
| commit | 775a936efbc4c6d8d3bbdbcd156d0254576af3a7 (patch) | |
| tree | 727dda6d15ca2cbb764839281405914fa6642fef | |
| parent | 75e4dd4757c4aaca75f6cf3cb0fb513a4beed2fe (diff) | |
| download | fork-ledger-775a936efbc4c6d8d3bbdbcd156d0254576af3a7.tar.gz fork-ledger-775a936efbc4c6d8d3bbdbcd156d0254576af3a7.tar.bz2 fork-ledger-775a936efbc4c6d8d3bbdbcd156d0254576af3a7.zip | |
Add € and £ to currency one could use in ledger mode
| -rw-r--r-- | lisp/ledger.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ledger.el b/lisp/ledger.el index 87d42599..2d15f090 100644 --- a/lisp/ledger.el +++ b/lisp/ledger.el @@ -1209,7 +1209,7 @@ the default." ;; A sample function for $ users (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) |