diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-13 09:36:44 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-13 09:36:44 -0700 |
| commit | db9ae7dd042ecc49c2390b19a0670029cdb4e5fe (patch) | |
| tree | 184356be01806fd59c142f46509fa2b949b61d97 /lisp/ldg-state.el | |
| parent | a13bcd4109711ea756727c6e8a00a262ad220dae (diff) | |
| download | ledger-db9ae7dd042ecc49c2390b19a0670029cdb4e5fe.tar.gz ledger-db9ae7dd042ecc49c2390b19a0670029cdb4e5fe.tar.bz2 ledger-db9ae7dd042ecc49c2390b19a0670029cdb4e5fe.zip | |
Fixes workflow for using toggle-pending with clear-whole-transactions
Diffstat (limited to 'lisp/ldg-state.el')
| -rw-r--r-- | lisp/ldg-state.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ldg-state.el b/lisp/ldg-state.el index 1ede3312..fad7d71c 100644 --- a/lisp/ldg-state.el +++ b/lisp/ldg-state.el @@ -219,11 +219,16 @@ dropped." (progn (delete-char 1) (if (and style (eq style 'cleared)) - (insert " *"))) + (progn + (insert " *") + (setq status 'cleared)))) (if (and style (eq style 'pending)) - (insert " ! ") - (insert " * ")) - (setq status t)))) + (progn + (insert " ! ") + (setq status 'pending)) + (progn + (insert " * ") + (setq status 'cleared)))))) status)) (provide 'ldg-state) |