diff options
| author | Steve Purcell <steve@sanityinc.com> | 2013-12-09 21:14:35 +0000 |
|---|---|---|
| committer | Steve Purcell <steve@sanityinc.com> | 2013-12-11 08:36:22 +0000 |
| commit | ccaaf7e235014875f6f2bcbc146658b1b42d4ae9 (patch) | |
| tree | 60bb4846e181fb8728948b5e8e7eafc80debc9bf /lisp/ledger-schedule.el | |
| parent | 12816a77e313e953bd0dcf7713f4a0fea4b661d5 (diff) | |
| download | fork-ledger-ccaaf7e235014875f6f2bcbc146658b1b42d4ae9.tar.gz fork-ledger-ccaaf7e235014875f6f2bcbc146658b1b42d4ae9.tar.bz2 fork-ledger-ccaaf7e235014875f6f2bcbc146658b1b42d4ae9.zip | |
ledger-mode: Fix a number of byte-compilation warnings
Diffstat (limited to 'lisp/ledger-schedule.el')
| -rw-r--r-- | lisp/ledger-schedule.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ledger-schedule.el b/lisp/ledger-schedule.el index 53152f39..c8fd6ad0 100644 --- a/lisp/ledger-schedule.el +++ b/lisp/ledger-schedule.el @@ -241,7 +241,7 @@ returns true if the date meets the requirements" ((/= 0 (setq year-match (string-to-number str))) `(eq (nth 5 (decode-time date)) ,year-match)) (t - (error "Improperly specified year constraint: " str))))) + (error "Improperly specified year constraint: %s" str))))) (defun ledger-schedule-constrain-month (str) @@ -253,7 +253,7 @@ returns true if the date meets the requirements" `(eq (nth 4 (decode-time date)) ,month-match) (error "ledger-schedule-constrain-numerical-month: month out of range %S" month-match))) (t - (error "Improperly specified month constraint: " str))))) + (error "Improperly specified month constraint: %s" str))))) (defun ledger-schedule-constrain-day (str) (let ((day-match t)) @@ -262,7 +262,7 @@ returns true if the date meets the requirements" ((/= 0 (setq day-match (string-to-number str))) `(eq (nth 3 (decode-time date)) ,day-match)) (t - (error "Improperly specified day constraint: " str))))) + (error "Improperly specified day constraint: %s" str))))) (defun ledger-schedule-parse-date-descriptor (descriptor) "Parse the date descriptor, return the evaluator" |