Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6bd677fa
Commit
6bd677fa
authored
Aug 29, 1998
by
Karl Heuer
Browse files
(chinese-year-cache): Change range of years from
1989-2000 to 1990-2010.
parent
f38d3514
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
28 additions
and
6 deletions
+28
-6
lisp/calendar/cal-china.el
lisp/calendar/cal-china.el
+28
-6
No files found.
lisp/calendar/cal-china.el
View file @
6bd677fa
...
...
@@ -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 19
8
9-20
0
0. The code works just as well with this
set to nil initially (which is how the value for 19
8
9-20
0
0 was computed)."
)
of the precomputed years 199
0
-20
1
0. The code works just as well with this
set to nil initially (which is how the value for 199
0
-20
1
0 was computed)."
)
(
defun
chinese-year
(
y
)
"The structure of the Chinese year for Gregorian year Y.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment