diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-06-24 20:48:20 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-06-24 20:48:20 -0700 |
| commit | 8afc183730828144ad42c4d9ae08b1885e0f2ccd (patch) | |
| tree | 3ff750c0ffbc18366def5e53de781565cf54e200 /lisp | |
| parent | 3b20d9a11f9dfe49ea96a9bde372c0c69612338e (diff) | |
| download | fork-ledger-8afc183730828144ad42c4d9ae08b1885e0f2ccd.tar.gz fork-ledger-8afc183730828144ad42c4d9ae08b1885e0f2ccd.tar.bz2 fork-ledger-8afc183730828144ad42c4d9ae08b1885e0f2ccd.zip | |
Fix bug 1059, ledger mode deletes character if a posting is cleared but there are less that four space between the account and the amount.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-state.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ledger-state.el b/lisp/ledger-state.el index 2080363e..53e08e22 100644 --- a/lisp/ledger-state.el +++ b/lisp/ledger-state.el @@ -104,7 +104,8 @@ dropped." (when (not (eq (ledger-state-from-char (char-after)) 'comment)) (insert (ledger-char-from-state cur-status) " ") (if (search-forward " " (line-end-position) t) - (delete-char 2))) + (if (looking-at " ") + (delete-char 2)))) (forward-line)) (setq new-status nil))) |