/[emacs]/emacs/lisp/calendar/holidays.el
ViewVC logotype

Diff of /emacs/lisp/calendar/holidays.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by gm, Tue Dec 7 00:58:02 2004 UTC revision 1.40 by gm, Tue Dec 7 12:22:19 2004 UTC
# Line 407  STRING is used purely for display purpos Line 407  STRING is used purely for display purpos
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)
# Line 431  STRING is used purely for display purpos Line 431  STRING is used purely for display purpos
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

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26