[Emacs-diffs] Changes to emacs/lisp/calendar/cal-china.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/20 04:40:19

Index: cal-china.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-china.el,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- cal-china.el        16 Mar 2008 01:23:25 -0000      1.37
+++ cal-china.el        20 Mar 2008 04:40:18 -0000      1.38
@@ -128,16 +128,40 @@
   :type 'integer
   :group 'chinese-calendar)
 
-;;; End of user options.
-
-
-(defconst chinese-calendar-celestial-stem
+(defcustom chinese-calendar-celestial-stem
   ["Jia" "Yi" "Bing" "Ding" "Wu" "Ji" "Geng" "Xin" "Ren" "Gui"]
-  "Prefixes used by `calendar-chinese-sexagesimal-name'.")
+  "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")))
 
-(defconst chinese-calendar-terrestrial-branch
+(defcustom chinese-calendar-terrestrial-branch
   ["Zi" "Chou" "Yin" "Mao" "Chen" "Si" "Wu" "Wei" "Shen" "You" "Xu" "Hai"]
-  "Suffixes used by `calendar-chinese-sexagesimal-name'.")
+  "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.
+
 
 (defun calendar-chinese-sexagesimal-name (n)
   "The N-th name of the Chinese sexagesimal cycle.