diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-05-11 08:48:42 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-05-11 08:48:42 -0700 |
| commit | d63d845f413c82a5143322f61c246b49f2ed19d9 (patch) | |
| tree | 4aefecf02e61e46a7bf0b4b642e3ac8e9e3e573d /lisp | |
| parent | b74d5419a10155d242d61fbdef6e924ff4187c40 (diff) | |
| download | fork-ledger-d63d845f413c82a5143322f61c246b49f2ed19d9.tar.gz fork-ledger-d63d845f413c82a5143322f61c246b49f2ed19d9.tar.bz2 fork-ledger-d63d845f413c82a5143322f61c246b49f2ed19d9.zip | |
Fix bug 1030 improperly placing the stays mark if the Payee starts with a digit.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-state.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ledger-state.el b/lisp/ledger-state.el index fffaab14..4f72f1a4 100644 --- a/lisp/ledger-state.el +++ b/lisp/ledger-state.el @@ -84,7 +84,8 @@ dropped." (save-excursion ;; this excursion checks state of entire ;; transaction and unclears if marked (goto-char (car bounds)) ;; beginning of xact - (skip-chars-forward "0-9./=\\- \t") ;; skip the date + (skip-chars-forward "0-9./=\\-") ;; skip the date + (skip-chars-forward " \t") ;; skip the white space after the date (setq cur-status (and (member (char-after) '(?\* ?\!)) (ledger-state-from-char (char-after)))) ;;if cur-status if !, or * then delete the marker @@ -183,7 +184,8 @@ dropped." (insert (make-string width ? )))))) (forward-line)) (goto-char (car bounds)) - (skip-chars-forward "0-9./=\\- \t") + (skip-chars-forward "0-9./=\\-") ;; Skip the date + (skip-chars-forward " \t") ;; Skip the white space (insert (ledger-char-from-state state) " ") (setq new-status state) (if (re-search-forward "\\(\t\\| [ \t]\\)" |