diff options
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 8822570d..b2574b10 100644 --- a/lisp/ledger-state.el +++ b/lisp/ledger-state.el @@ -68,9 +68,9 @@ (defun ledger-state-from-string (state-string) "Get state from STATE-CHAR." - (cond ((string= state-string "!") 'pending) - ((string= state-string "*") 'cleared) - ((string= state-string ";") 'comment) + (cond ((string-match "\\!" state-string) 'pending) + ((string-match "\\*" state-string) 'cleared) + ((string-match ";" state-string) 'comment) (t nil))) (defun ledger-toggle-current-posting (&optional style) |