diff options
| author | Craig Earls <enderw88@gmail.com> | 2014-11-27 09:43:17 -0700 |
|---|---|---|
| committer | Craig Earls <enderw88@gmail.com> | 2014-11-27 09:43:17 -0700 |
| commit | 9e166cbd36957caff5e4a64bc09b2026afe51e56 (patch) | |
| tree | 910f39c38f9fed087d91dc53d05f846cdc3df0ff /lisp/ledger-state.el | |
| parent | f398e01c803e79e6314af0baf579ca2d8e6a9646 (diff) | |
| parent | 54a736feabfa3993ffc38433e3c12b611391f952 (diff) | |
| download | fork-ledger-9e166cbd36957caff5e4a64bc09b2026afe51e56.tar.gz fork-ledger-9e166cbd36957caff5e4a64bc09b2026afe51e56.tar.bz2 fork-ledger-9e166cbd36957caff5e4a64bc09b2026afe51e56.zip | |
Merge branch 'prefix-s-trim-functions' into schedule-compiler-improvements
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) |