diff options
| author | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2013-02-12 16:04:02 -0700 |
| commit | 5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922 (patch) | |
| tree | 13e3f575b0fa40ce19912b135ef98c823e42980e /lisp/ldg-state.el | |
| parent | 28659c58c3b0531e0f5fb01b298fcb8a8f63991e (diff) | |
| download | ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.gz ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.tar.bz2 ledger-5eb322c0a29bcf2ddaa30bfaab577f18bb1fd922.zip | |
Comment and code cleanup
Diffstat (limited to 'lisp/ldg-state.el')
| -rw-r--r-- | lisp/ldg-state.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/ldg-state.el b/lisp/ldg-state.el index 7c499d3e..1ede3312 100644 --- a/lisp/ldg-state.el +++ b/lisp/ldg-state.el @@ -81,11 +81,11 @@ dropped." new-status cur-status) ;; Uncompact the entry, to make it easier to toggle the ;; transaction - (save-excursion ;this excursion unclears the posting - (goto-char (car bounds)) ;beginning of xact - (skip-chars-forward "0-9./= \t") ;skip the date + (save-excursion ;; this excursion unclears the posting + (goto-char (car bounds)) ;; beginning of xact + (skip-chars-forward "0-9./= \t") ;; skip the date (setq cur-status (and (member (char-after) '(?\* ?\!)) - (ledger-state-from-char (char-after)))) ;if the next char is !, * store it + (ledger-state-from-char (char-after)))) ;;if cur-status if !, or * then delete the marker (when cur-status (let ((here (point))) |