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

Fix ledger-split-commodities to handle integer balances

Browse source
This commit is contained in:
Craig Earls 2013-03-24 17:23:50 -04:00
parent 0d0e996e07
commit 6a753e155e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ldg-commodities.el
View file

@ -39,8 +39,8 @@
(insert str) (insert str)
(goto-char (point-min)) (goto-char (point-min))
(if (assoc "decimal-comma" ledger-environment-alist) (if (assoc "decimal-comma" ledger-environment-alist)
(setq number-regex "-?[1-9][0-9.]*[,][0-9]*") (setq number-regex "-?[1-9][0-9.]*[,]?[0-9]*")
(setq number-regex "-?[1-9][0-9,]*[.][0-9]*")) (setq number-regex "-?[1-9][0-9,]*[.]?[0-9]*"))
(cond ((re-search-forward number-regex nil t) (cond ((re-search-forward number-regex nil t)
;; found a decimal number ;; found a decimal number
(setq val (setq val