diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-06-25 20:50:07 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-06-25 20:50:07 -0700 |
| commit | 3a2eb94beff65f22463c119e4db55a2962ac02e0 (patch) | |
| tree | 53c21914b68ab5ba7256ce6e4fa83829c0316cd6 /lisp/ledger-state.el | |
| parent | 10bdcbb876227047763d5656bf9a93af624aaf31 (diff) | |
| download | fork-ledger-3a2eb94beff65f22463c119e4db55a2962ac02e0.tar.gz fork-ledger-3a2eb94beff65f22463c119e4db55a2962ac02e0.tar.bz2 fork-ledger-3a2eb94beff65f22463c119e4db55a2962ac02e0.zip | |
Fix bug 1052 ledger-mode mangles transactions with tabs.
Diffstat (limited to 'lisp/ledger-state.el')
| -rw-r--r-- | lisp/ledger-state.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ledger-state.el b/lisp/ledger-state.el index 53e08e22..989e6d33 100644 --- a/lisp/ledger-state.el +++ b/lisp/ledger-state.el @@ -103,9 +103,9 @@ dropped." (skip-chars-forward " \t") (when (not (eq (ledger-state-from-char (char-after)) 'comment)) (insert (ledger-char-from-state cur-status) " ") - (if (search-forward " " (line-end-position) t) - (if (looking-at " ") - (delete-char 2)))) + (if (and (search-forward " " (line-end-position) t) + (looking-at " ")) + (delete-char 2))) (forward-line)) (setq new-status nil))) |