diff options
author | Craig Earls <enderw88@gmail.com> | 2015-07-11 07:39:05 -0700 |
---|---|---|
committer | Craig Earls <enderw88@gmail.com> | 2015-07-11 07:39:05 -0700 |
commit | 82183450b1df66cc9b95ee0d5c7d21f11a64943b (patch) | |
tree | 40855f8a87ee22f626aaee636003c0ce55237940 /ledger-schedule.el | |
parent | f4b73f2589e775d98253dcce1e78f2f772a1cf5f (diff) |
Removed debugging code left in by accident that was preventing advanced month and year scheduling.
Diffstat (limited to 'ledger-schedule.el')
-rw-r--r-- | ledger-schedule.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/ledger-schedule.el b/ledger-schedule.el index 1fbbcb5..b715a48 100644 --- a/ledger-schedule.el +++ b/ledger-schedule.el @@ -202,12 +202,10 @@ the transaction should be logged for that day." (defun ledger-schedule-compile-constraints (descriptor-string) "Return a list with the year, month and day fields split." (let ((fields (split-string descriptor-string "[/\\-]" t))) - (if (string-match "[A-Za-z]" descriptor-string) - (ledger-schedule-constrain-day (nth 0 fields) (nth 1 fields) (nth 2 fields)) - (list 'and - (ledger-schedule-constrain-day (nth 0 fields) (nth 1 fields) (nth 2 fields)) - (ledger-schedule-constrain-year (nth 0 fields) (nth 1 fields) (nth 2 fields)) - (ledger-schedule-constrain-month (nth 0 fields) (nth 1 fields) (nth 2 fields)))))) + (list 'and + (ledger-schedule-constrain-day (nth 0 fields) (nth 1 fields) (nth 2 fields)) + (ledger-schedule-constrain-year (nth 0 fields) (nth 1 fields) (nth 2 fields)) + (ledger-schedule-constrain-month (nth 0 fields) (nth 1 fields) (nth 2 fields))))) (defun ledger-schedule-constrain-year (year-desc month-desc day-desc) "Return a form that constrains the year. |