Mercurial > emacs
comparison lisp/calendar/holidays.el @ 93633:f0a60a0ac089
Update for calendar.el name changes.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 04 Apr 2008 04:38:21 +0000 |
parents | b6cea5b391eb |
children | d4a308909857 |
comparison
equal
deleted
inserted
replaced
93632:d772031482b8 | 93633:f0a60a0ac089 |
---|---|
387 the form ((MONTH DAY YEAR) STRING), where the date is that of the | 387 the form ((MONTH DAY YEAR) STRING), where the date is that of the |
388 Nth day before or after Easter. | 388 Nth day before or after Easter. |
389 | 389 |
390 For backwards compatibility, if this function is called with no | 390 For backwards compatibility, if this function is called with no |
391 arguments, then it returns a list of \"standard\" Easter-related | 391 arguments, then it returns a list of \"standard\" Easter-related |
392 holidays (with more entries if `all-christian-calendar-holidays' | 392 holidays (with more entries if `calendar-christian-all-holidays-flag' |
393 is non-nil)." | 393 is non-nil)." |
394 ;; Backwards compatibility layer. | 394 ;; Backwards compatibility layer. |
395 (if (not n) | 395 (if (not n) |
396 (apply 'append | 396 (apply 'append |
397 (mapcar (lambda (e) | 397 (mapcar (lambda (e) |
398 (apply 'holiday-easter-etc e)) | 398 (apply 'holiday-easter-etc e)) |
399 ;; The combined list is not in order. | 399 ;; The combined list is not in order. |
400 (append | 400 (append |
401 (if all-christian-calendar-holidays | 401 (if calendar-christian-all-holidays-flag |
402 '((-63 "Septuagesima Sunday") | 402 '((-63 "Septuagesima Sunday") |
403 (-56 "Sexagesima Sunday") | 403 (-56 "Sexagesima Sunday") |
404 (-49 "Shrove Sunday") | 404 (-49 "Shrove Sunday") |
405 (-48 "Shrove Monday") | 405 (-48 "Shrove Monday") |
406 (-47 "Shrove Tuesday") | 406 (-47 "Shrove Tuesday") |