[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el |
Date: |
Tue, 07 Dec 2004 09:40:32 -0500 |
Index: emacs/lisp/calendar/holidays.el
diff -c emacs/lisp/calendar/holidays.el:1.39
emacs/lisp/calendar/holidays.el:1.40
*** emacs/lisp/calendar/holidays.el:1.39 Tue Dec 7 00:58:02 2004
--- emacs/lisp/calendar/holidays.el Tue Dec 7 12:22:19 2004
***************
*** 407,415 ****
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after advent.
! For backwards compatability, if this function is called with no
arguments, then it returns the value appropriate for advent itself."
! ;; Backwards compatability layer.
(if (not n)
(holiday-advent 0 "Advent")
(let ((year displayed-year)
--- 407,415 ----
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after advent.
! For backwards compatibility, if this function is called with no
arguments, then it returns the value appropriate for advent itself."
! ;; Backwards compatibility layer.
(if (not n)
(holiday-advent 0 "Advent")
(let ((year displayed-year)
***************
*** 431,441 ****
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after Easter.
! For backwards compatability, if this function is called with no
arguments, then it returns a list of \"standard\" Easter-related
holidays (with more entries if `all-christian-calendar-holidays'
is non-nil)."
! ;; Backwards compatability layer.
(if (not n)
(let (res-list res)
(dolist (elem (append
--- 431,441 ----
the form ((MONTH DAY YEAR) STRING), where the date is that of the
Nth day before or after Easter.
! For backwards compatibility, if this function is called with no
arguments, then it returns a list of \"standard\" Easter-related
holidays (with more entries if `all-christian-calendar-holidays'
is non-nil)."
! ;; Backwards compatibility layer.
(if (not n)
(let (res-list res)
(dolist (elem (append