diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2015-09-07 00:00:31 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-05-07 16:17:52 +0200 |
| commit | f2c56d355f883dd60aef020b4e363739aeff856c (patch) | |
| tree | f1aaa51f1f12f20c8563b9eab2097f4b8978ae2b /scm/mcron/job-specifier.scm | |
| parent | b2718d2cc9a70eda04822b7c8e11aa3e5fabface (diff) | |
| download | mcron-f2c56d355f883dd60aef020b4e363739aeff856c.tar.gz mcron-f2c56d355f883dd60aef020b4e363739aeff856c.tar.bz2 mcron-f2c56d355f883dd60aef020b4e363739aeff856c.zip | |
all: Add a custom indentation rule for 'mcron-error'.
* .dir-locals.el: Define a custom indentation rule for 'mcron-error'.
* scm/mcron/crontab.scm: Use it.
* scm/mcron/job-specifier.scm: Likewise.
* scm/mcron/main.scm: Likewise.
* scm/mcron/vixie-specification.scm: Likewise.
Diffstat (limited to 'scm/mcron/job-specifier.scm')
| -rw-r--r-- | scm/mcron/job-specifier.scm | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/scm/mcron/job-specifier.scm b/scm/mcron/job-specifier.scm index cce948c..1647ede 100644 --- a/scm/mcron/job-specifier.scm +++ b/scm/mcron/job-specifier.scm @@ -233,10 +233,9 @@ ((list? action) (lambda () (primitive-eval action))) ((string? action) (lambda () (system action))) (else - (throw 'mcron-error - 2 - "job: invalid second argument (action; should be lambda" - " function, string or list)")))) + (throw 'mcron-error 2 + "job: invalid second argument (action; should be lambda " + "function, string or list)")))) (time-proc (cond ((procedure? time-proc) time-proc) @@ -244,10 +243,9 @@ ((list? time-proc) (lambda (current-time) (primitive-eval time-proc))) (else - (throw 'mcron-error - 3 - "job: invalid first argument (next-time-function; should ") - "be function, string or list)"))) + (throw 'mcron-error 3 + "job: invalid first argument (next-time-function; " + "should be function, string or list)")))) (displayable (cond ((not (null? displayable)) (car displayable)) ((procedure? action) "Lambda function") |