From ccaaf7e235014875f6f2bcbc146658b1b42d4ae9 Mon Sep 17 00:00:00 2001 From: Steve Purcell Date: Mon, 9 Dec 2013 21:14:35 +0000 Subject: ledger-mode: Fix a number of byte-compilation warnings --- lisp/ledger-schedule.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/ledger-schedule.el') 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" -- cgit v1.2.3