[Emacs-diffs] emacs/lisp ChangeLog calendar/solar.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/06/04 06:40:18

Modified files:
        lisp           : ChangeLog 
        lisp/calendar  : solar.el 

Log message:
        (solar-n-hemi-seasons, solar-s-hemi-seasons):
        Make into defcustoms.  (Bug#3429)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15663&r2=1.15664
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/solar.el?cvsroot=emacs&r1=1.85&r2=1.86

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15663
retrieving revision 1.15664
diff -u -b -r1.15663 -r1.15664
--- ChangeLog   4 Jun 2009 01:15:35 -0000       1.15663
+++ ChangeLog   4 Jun 2009 06:40:13 -0000       1.15664
@@ -1,3 +1,8 @@
+2009-06-04  Glenn Morris  <address@hidden>
+
+       * calendar/solar.el (solar-n-hemi-seasons, solar-s-hemi-seasons):
+       Make into defcustoms.  (Bug#3429)
+
 2009-06-01  Chong Yidong  <address@hidden>
 
        * international/README: New file.

Index: calendar/solar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/solar.el,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -b -r1.85 -r1.86
--- calendar/solar.el   5 Jan 2009 03:20:41 -0000       1.85
+++ calendar/solar.el   4 Jun 2009 06:40:18 -0000       1.86
@@ -147,16 +147,27 @@
   :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).")