Mercurial > emacs

changeset 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 9ef82867f40a
children b801762e0062
files lisp/calendar/cal-china.el
diffstat 1 files changed, 32 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- 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,