diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-03-25 01:21:19 -0400 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-03-25 01:21:19 -0400 |
| commit | d3fe4c666ff37912245d2a0386ac749737f34843 (patch) | |
| tree | eaed396df8fce3a52cebe4392babb3ae5df1d464 /lisp/ldg-commodities.el | |
| parent | cc62e6a886d72bbe2a1a3c673df92b912deefd0c (diff) | |
| download | fork-ledger-d3fe4c666ff37912245d2a0386ac749737f34843.tar.gz fork-ledger-d3fe4c666ff37912245d2a0386ac749737f34843.tar.bz2 fork-ledger-d3fe4c666ff37912245d2a0386ac749737f34843.zip | |
Lots of code cleanup. (if () (progn …) ==> (when () …) all over the place
Diffstat (limited to 'lisp/ldg-commodities.el')
| -rw-r--r-- | lisp/ldg-commodities.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ldg-commodities.el b/lisp/ldg-commodities.el index f664c472..0eb435b5 100644 --- a/lisp/ldg-commodities.el +++ b/lisp/ldg-commodities.el @@ -50,7 +50,7 @@ (string-to-number (ledger-commodity-string-number-decimalize (delete-and-extract-region (match-beginning 0) (match-end 0)) :from-user)) - (nth 0 (split-string (buffer-substring (point-min) (point-max)))))) + (nth 0 (split-string (buffer-substring-no-properties (point-min) (point-max)))))) ((re-search-forward "0" nil t) ;; couldn't find a decimal number, look for a single 0, ;; indicating account with zero balance |