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

(chinese-calendar-celestial-stem, chinese-calendar-terrestrial-branch):

Browse Source 
Make defcustoms.
This commit is contained in:
Glenn Morris 2008-03-20 04:40:18 +00:00
parent 06e9110e45
commit a8774f05b2
1 changed files with 32 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -128,17 +128,41 @@ Default is for no daylight saving time."
:type 'integer
:group 'chinese-calendar)
(defcustom chinese-calendar-celestial-stem
["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]
"Prefixes used by `calendar-chinese-sexagesimal-name'."
:group 'chinese-calendar
:type '(vector (string :tag "Jia")
(string :tag "Yi")
(string :tag "Bing")
(string :tag "Ding")
(string :tag "Wu")
(string :tag "Ji")
(string :tag "Geng")
(string :tag "Xin")
(string :tag "Ren")
(string :tag "Gui")))
(defcustom chinese-calendar-terrestrial-branch
["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]
"Suffixes used by `calendar-chinese-sexagesimal-name'."
:group 'chinese-calendar
:type '(vector (string :tag "Zi")
(string :tag "Chou")
(string :tag "Yin")
(string :tag "Mao")
(string :tag "Chen")
(string :tag "Si")
(string :tag "Wu")
(string :tag "Wei")
(string :tag "Shen")
(string :tag "You")
(string :tag "Xu")
(string :tag "Hai")))
;;; End of user options.
(defconst chinese-calendar-celestial-stem
["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]
"Prefixes used by `calendar-chinese-sexagesimal-name'.")
(defconst chinese-calendar-terrestrial-branch
["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]
"Suffixes used by `calendar-chinese-sexagesimal-name'.")
(defun calendar-chinese-sexagesimal-name (n)
"The N-th name of the Chinese sexagesimal cycle.
N congruent to 1 gives the first name, N congruent to 2 gives the second name,