# HG changeset patch # User Glenn Morris # Date 1205988018 0 # Node ID 9144c487a5678cf88567486ddbe316972cc0fcdf # Parent 9ef82867f40a63e0881c90e2790a776e6589845e (chinese-calendar-celestial-stem, chinese-calendar-terrestrial-branch): Make defcustoms. diff -r 9ef82867f40a -r 9144c487a567 lisp/calendar/cal-china.el --- a/lisp/calendar/cal-china.el Thu Mar 20 04:38:27 2008 +0000 +++ b/lisp/calendar/cal-china.el Thu Mar 20 04:40:18 2008 +0000 @@ -128,17 +128,41 @@ :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,