mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(chinese-year-cache): Change range of years from

Browse Source 
1989-2000 to 1990-2010.
This commit is contained in:
Karl Heuer 1998-08-29 15:59:01 +00:00
parent f38d351407
commit 6bd677fa1b
1 changed files with 28 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/calendar/cal-china.el
View File

@ -182,9 +182,7 @@ The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees."
(calendar-astro-from-absolute d))))))
(defvar chinese-year-cache
'((1989 (12 726110) (1 726139) (2 726169) (3 726198) (4 726227) (5 726257)
(6 726286) (7 726316) (8 726345) (9 726375) (10 726404) (11 726434))
(1990 (12 726464) (1 726494) (2 726523) (3 726553) (4 726582) (5 726611)
'((1990 (12 726464) (1 726494) (2 726523) (3 726553) (4 726582) (5 726611)
(5.5 726641) (6 726670) (7 726699) (8 726729) (9 726758) (10 726788)
(11 726818))
(1991 (12 726848) (1 726878) (2 726907) (3 726937) (4 726966) (5 726995)
@ -209,12 +207,36 @@ The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees."
(1999 (12 729771) (1 729801) (2 729831) (3 729860) (4 729889) (5 729919)
(6 729948) (7 729977) (8 730007) (9 730036) (10 730066) (11 730096))
(2000 (12 730126) (1 730155) (2 730185) (3 730215) (4 730244) (5 730273)
(6 730303) (7 730332) (8 730361) (9 730391) (10 730420) (11 730450)))
(6 730303) (7 730332) (8 730361) (9 730391) (10 730420) (11 730450))
(2001 (12 730480) (1 730509) (2 730539) (3 730569) (4 730598) (4.5 730628)
(5 730657) (6 730687) (7 730716) (8 730745) (9 730775) (10 730804)
(11 730834))
(2002 (12 730863) (1 730893) (2 730923) (3 730953) (4 730982) (5 731012)
(6 731041) (7 731071) (8 731100) (9 731129) (10 731159) (11 731188))
(2003 (12 731218) (1 731247) (2 731277) (3 731307) (4 731336) (5 731366)
(6 731396) (7 731425) (8 731455) (9 731484) (10 731513) (11 731543))
(2004 (12 731572) (1 731602) (2 731631) (2.5 731661) (3 731690) (4 731720)
(5 731750) (6 731779) (7 731809) (8 731838) (9 731868) (10 731897)
(11 731927))
(2005 (12 731956) (1 731986) (2 732015) (3 732045) (4 732074) (5 732104)
(6 732133) (7 732163) (8 732193) (9 732222) (10 732252) (11 732281))
(2006 (12 732311) (1 732340) (2 732370) (3 732399) (4 732429) (5 732458)
(6 732488) (7 732517) (7.5 732547) (8 732576) (9 732606) (10 732636)
(11 732665))
(2007 (12 732695) (1 732725) (2 732754) (3 732783) (4 732813) (5 732842)
(6 732871) (7 732901) (8 732930) (9 732960) (10 732990) (11 733020))
(2008 (12 733049) (1 733079) (2 733109) (3 733138) (4 733167) (5 733197)
(6 733226) (7 733255) (8 733285) (9 733314) (10 733344) (11 733374))
(2009 (12 733403) (1 733433) (2 733463) (3 733493) (4 733522) (5 733551)
(5.5 733581) (6 733610) (7 733639) (8 733669) (9 733698) (10 733728)
(11 733757))
(2010 (12 733787) (1 733817) (2 733847) (3 733876) (4 733906) (5 733935)
(6 733965) (7 733994) (8 734023) (9 734053) (10 734082) (11 734112)))
"An assoc list of Chinese year structures as determined by `chinese-year'.
Values are computed as needed, but to save time, the initial value consists
of the precomputed years 1989-2000. The code works just as well with this
set to nil initially (which is how the value for 1989-2000 was computed).")
of the precomputed years 1990-2010. The code works just as well with this
set to nil initially (which is how the value for 1990-2010 was computed).")
(defun chinese-year (y)
"The structure of the Chinese year for Gregorian year Y.