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")