Mercurial > emacs

comparison lisp/calendar/cal-china.el @ 93090:9144c487a567

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(chinese-calendar-celestial-stem, chinese-calendar-terrestrial-branch): Make defcustoms.
author Glenn Morris <rgm@gnu.org>
date Thu, 20 Mar 2008 04:40:18 +0000
parents 130c0da046a4
children f59ab0cdc9ba
comparison
equal deleted inserted replaced
93089:9ef82867f40a 93090:9144c487a567
126 "Number of minutes after midnight that daylight saving time ends. 126 "Number of minutes after midnight that daylight saving time ends.
127 Default is for no daylight saving time." 127 Default is for no daylight saving time."
128 :type 'integer 128 :type 'integer
129 :group 'chinese-calendar) 129 :group 'chinese-calendar)
130 130
131 (defcustom chinese-calendar-celestial-stem
132 ["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]
133 "Prefixes used by `calendar-chinese-sexagesimal-name'."
134 :group 'chinese-calendar
135 :type '(vector (string :tag "Jia")
136 (string :tag "Yi")
137 (string :tag "Bing")
138 (string :tag "Ding")
139 (string :tag "Wu")
140 (string :tag "Ji")
141 (string :tag "Geng")
142 (string :tag "Xin")
143 (string :tag "Ren")
144 (string :tag "Gui")))
145
146 (defcustom chinese-calendar-terrestrial-branch
147 ["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]
148 "Suffixes used by `calendar-chinese-sexagesimal-name'."
149 :group 'chinese-calendar
150 :type '(vector (string :tag "Zi")
151 (string :tag "Chou")
152 (string :tag "Yin")
153 (string :tag "Mao")
154 (string :tag "Chen")
155 (string :tag "Si")
156 (string :tag "Wu")
157 (string :tag "Wei")
158 (string :tag "Shen")
159 (string :tag "You")
160 (string :tag "Xu")
161 (string :tag "Hai")))
162
131 ;;; End of user options. 163 ;;; End of user options.
132 164
133
134 (defconst chinese-calendar-celestial-stem
135 ["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]
136 "Prefixes used by `calendar-chinese-sexagesimal-name'.")
137
138 (defconst chinese-calendar-terrestrial-branch
139 ["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]
140 "Suffixes used by `calendar-chinese-sexagesimal-name'.")
141 165
142 (defun calendar-chinese-sexagesimal-name (n) 166 (defun calendar-chinese-sexagesimal-name (n)
143 "The N-th name of the Chinese sexagesimal cycle. 167 "The N-th name of the Chinese sexagesimal cycle.
144 N congruent to 1 gives the first name, N congruent to 2 gives the second name, 168 N congruent to 1 gives the first name, N congruent to 2 gives the second name,
145 ..., N congruent to 60 gives the sixtieth name." 169 ..., N congruent to 60 gives the sixtieth name."