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

Another attempt to deal with decimal-comma

Browse source
This commit is contained in:
Craig Earls 2013-02-21 14:35:29 -07:00
parent 2fd1574cf2
commit 023e245e9b
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ldg-commodities.el
View file

@ -44,13 +44,14 @@ This only has effect interfacing to calc mode in edit amount"
(with-temp-buffer (with-temp-buffer
(insert str) (insert str)
(goto-char (point-min)) (goto-char (point-min))
(re-search-forward "-?[1-9][0-9]*[.,][0-9]*") (re-search-forward "-?[1-9][0-9]*[.,][0-9]*" nil t)
(setq val (setq val
(string-to-number (string-to-number
(ledger-commodity-string-number-decimalize (ledger-commodity-string-number-decimalize
(delete-and-extract-region (match-beginning 0) (match-end 0)) :from-user))) (delete-and-extract-region (match-beginning 0) (match-end 0)) :from-user)))
(delete-trailing-whitespace) (re-search-forward "[^[:space:]]" nil t)
(setq comm (buffer-substring (point-min) (point-max))) (setq comm
(delete-and-extract-region (match-beginning 0) (match-end 0)))
(list val comm)))) (list val comm))))