From f34ad34b89e9ba09113a88a2f1d827976496db29 Mon Sep 17 00:00:00 2001 From: Craig Earls Date: Tue, 12 Nov 2013 09:21:44 -0700 Subject: Fix values pushed to calc --- lisp/ledger-post.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp') 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)) -- cgit v1.2.3