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 | 016a1e57c631022b059e73ce053a9cf79318a061 (patch) | |
| tree | 869dd5eb7dd02d51afe2a2a1a613e4f5c4e8fbb1 /lisp | |
| parent | 316c61252ebac1a2326cc43efba0277a2aaf5ca7 (diff) | |
| download | fork-ledger-016a1e57c631022b059e73ce053a9cf79318a061.tar.gz fork-ledger-016a1e57c631022b059e73ce053a9cf79318a061.tar.bz2 fork-ledger-016a1e57c631022b059e73ce053a9cf79318a061.zip | |
Removed debugging code left in by accident that was preventing advanced month and year scheduling.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ledger-schedule.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index 1fbbcb59..b715a487 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/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. |