diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-04-13 21:55:06 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-04-13 21:55:06 -0700 |
| commit | 971bcf22f4282ef9813a9fe9bb4966e03d50c48c (patch) | |
| tree | e3175acf97eaa5f52e85d41f85464a3edfce079b /lisp/ldg-post.el | |
| parent | b2c88149cb09387023b28f5af0a9ad1640a0c9c3 (diff) | |
| download | fork-ledger-971bcf22f4282ef9813a9fe9bb4966e03d50c48c.tar.gz fork-ledger-971bcf22f4282ef9813a9fe9bb4966e03d50c48c.tar.bz2 fork-ledger-971bcf22f4282ef9813a9fe9bb4966e03d50c48c.zip | |
Bug 951, handle thousand separators.
Rewrote handling for decimal comma to be much simpler. Why can't I see the simple way first?
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 37722fbc..7e4a631c 100644 --- a/lisp/ldg-post.el +++ b/lisp/ldg-post.el @@ -217,7 +217,7 @@ BEG, END, and LEN control how far it can align." (let ((end-of-amount (re-search-forward "[-.,0-9]+" (line-end-position) t))) ;; determine if there is an amount to edit (if end-of-amount - (let ((val (ledger-commodity-string-number-decimalize (match-string 0) :from-user))) + (let ((val (ledger-string-to-number (match-string 0)))) (goto-char (match-beginning 0)) (delete-region (match-beginning 0) (match-end 0)) (calc) |