diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-11-27 09:42:23 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-11-27 09:42:23 -0700 |
| commit | 54a736feabfa3993ffc38433e3c12b611391f952 (patch) | |
| tree | 045f4fe86f025e1ef262a9fddbb129c780a26ea3 /lisp/ledger-state.el | |
| parent | db7e4fd741021bec72121f915414679d30144735 (diff) | |
| download | fork-ledger-54a736feabfa3993ffc38433e3c12b611391f952.tar.gz fork-ledger-54a736feabfa3993ffc38433e3c12b611391f952.tar.bz2 fork-ledger-54a736feabfa3993ffc38433e3c12b611391f952.zip | |
Remove s-trim functions since they stomp on s.el.
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) |