(solar-n-hemi-seasons, solar-s-hemi-seasons):

Make into defcustoms.  (Bug#3429)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d4bacc42aff6a2a8ba867850907fd7e80e753bc7..243086783874a4c9d6767e0c30f1d91cc9896d02 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-04  Glenn Morris  <rgm@gnu.org>
+
+       * calendar/solar.el (solar-n-hemi-seasons, solar-s-hemi-seasons):
+       Make into defcustoms.  (Bug#3429)
+
 2009-06-01  Chong Yidong  <cyd@stupidchicken.com>
 
        * international/README: New file.

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index a4845ea607a3826f4c73f5058c522d1e665b7add..78c716f9f97d1712ab03e7a34048065e8cee314d 100644 (file)
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -147,16 +147,27 @@ delta.  At present, delta = 0.01 degrees, so the value of the variable
   :type 'number
   :group 'calendar)
 
-;;; End of user options.
-
-
-(defconst solar-n-hemi-seasons
+(defcustom solar-n-hemi-seasons
   '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice")
-  "List of season changes for the northern hemisphere.")
+  "List of season changes for the northern hemisphere."
+  :type '(list
+          (string :tag "Vernal Equinox")
+          (string :tag "Summer Solstice")
+          (string :tag "Autumnal Equinox")
+          (string :tag "Winter Solstice"))
+  :group 'calendar)
 
-(defconst solar-s-hemi-seasons
+(defcustom solar-s-hemi-seasons
   '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice")
-  "List of season changes for the southern hemisphere.")
+  "List of season changes for the southern hemisphere."
+  :type '(list
+          (string :tag "Autumnal Equinox")
+          (string :tag "Winter Solstice")
+          (string :tag "Vernal Equinox")
+          (string :tag "Summer Solstice"))
+  :group 'calendar)
+
+;;; End of user options.
 
 (defvar solar-sidereal-time-greenwich-midnight nil
   "Sidereal time at Greenwich at midnight (universal time).")