diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-11-12 09:21:44 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-11-12 09:21:44 -0700 |
| commit | f34ad34b89e9ba09113a88a2f1d827976496db29 (patch) | |
| tree | 4cb1415591c9d979c4e5903f5355cda847f65e19 /lisp | |
| parent | d51e6f32d7c16f0d6760df6f8d83cd18db55c597 (diff) | |
| download | fork-ledger-f34ad34b89e9ba09113a88a2f1d827976496db29.tar.gz fork-ledger-f34ad34b89e9ba09113a88a2f1d827976496db29.tar.bz2 fork-ledger-f34ad34b89e9ba09113a88a2f1d827976496db29.zip | |
Fix values pushed to calc
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-post.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ledger-post.el b/lisp/ledger-post.el index 5d30e954..f2db6c89 100644 --- a/lisp/ledger-post.el +++ b/lisp/ledger-post.el @@ -209,11 +209,11 @@ region align the posting on the current line." (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-string-to-number (match-string 0)))) + (let ((val-string (match-string 0))) (goto-char (match-beginning 0)) (delete-region (match-beginning 0) (match-end 0)) (calc) - (calc-eval val 'push)) ;; edit the amount + (calc-eval val-string 'push)) ;; edit the amount (progn ;;make sure there are two spaces after the account name and go to calc (if (search-backward " " (- (point) 3) t) (goto-char (line-end-position)) |