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

Ensure target balance is actually parseable as a number

Browse source
This commit is contained in:
Craig Earls 2013-07-01 11:01:47 -07:00
parent 52dd81ca9e
commit 8da79a8967
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ldg-commodities.el
View file

@ -128,7 +128,8 @@ longer ones are after the value."
(let ((str (read-from-minibuffer (let ((str (read-from-minibuffer
(concat prompt " (" ledger-reconcile-default-commodity "): "))) (concat prompt " (" ledger-reconcile-default-commodity "): ")))
comm) comm)
(if (> (length str) 0) (if (and (> (length str) 0)
(ledger-split-commodity-string str))
(progn (progn
(setq comm (ledger-split-commodity-string str)) (setq comm (ledger-split-commodity-string str))
(if (cadr comm) (if (cadr comm)