407 |
the form ((MONTH DAY YEAR) STRING), where the date is that of the |
the form ((MONTH DAY YEAR) STRING), where the date is that of the |
408 |
Nth day before or after advent. |
Nth day before or after advent. |
409 |
|
|
410 |
For backwards compatability, if this function is called with no |
For backwards compatibility, if this function is called with no |
411 |
arguments, then it returns the value appropriate for advent itself." |
arguments, then it returns the value appropriate for advent itself." |
412 |
;; Backwards compatability layer. |
;; Backwards compatibility layer. |
413 |
(if (not n) |
(if (not n) |
414 |
(holiday-advent 0 "Advent") |
(holiday-advent 0 "Advent") |
415 |
(let ((year displayed-year) |
(let ((year displayed-year) |
431 |
the form ((MONTH DAY YEAR) STRING), where the date is that of the |
the form ((MONTH DAY YEAR) STRING), where the date is that of the |
432 |
Nth day before or after Easter. |
Nth day before or after Easter. |
433 |
|
|
434 |
For backwards compatability, if this function is called with no |
For backwards compatibility, if this function is called with no |
435 |
arguments, then it returns a list of \"standard\" Easter-related |
arguments, then it returns a list of \"standard\" Easter-related |
436 |
holidays (with more entries if `all-christian-calendar-holidays' |
holidays (with more entries if `all-christian-calendar-holidays' |
437 |
is non-nil)." |
is non-nil)." |
438 |
;; Backwards compatability layer. |
;; Backwards compatibility layer. |
439 |
(if (not n) |
(if (not n) |
440 |
(let (res-list res) |
(let (res-list res) |
441 |
(dolist (elem (append |
(dolist (elem (append |