sfos/ledger
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bug 1030 improperly placing the stays mark if the Payee starts with a digit.

Browse source
This commit is contained in:
Craig Earls 2014-05-11 08:48:42 -07:00
parent b74d5419a1
commit d63d845f41
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ledger-state.el
View file

@ -84,7 +84,8 @@ dropped."
(save-excursion ;; this excursion checks state of entire (save-excursion ;; this excursion checks state of entire
;; transaction and unclears if marked ;; transaction and unclears if marked
(goto-char (car bounds)) ;; beginning of xact (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) '(?\* ?\!)) (setq cur-status (and (member (char-after) '(?\* ?\!))
(ledger-state-from-char (char-after)))) (ledger-state-from-char (char-after))))
;;if cur-status if !, or * then delete the marker ;;if cur-status if !, or * then delete the marker
@ -183,7 +184,8 @@ dropped."
(insert (make-string width ? )))))) (insert (make-string width ? ))))))
(forward-line)) (forward-line))
(goto-char (car bounds)) (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) " ") (insert (ledger-char-from-state state) " ")
(setq new-status state) (setq new-status state)
(if (re-search-forward "\\(\t\\| [ \t]\\)" (if (re-search-forward "\\(\t\\| [ \t]\\)"