From: Glenn Morris Date: Thu, 4 Jun 2009 06:40:13 +0000 (+0000) Subject: (solar-n-hemi-seasons, solar-s-hemi-seasons): X-Git-Tag: emacs-pretest-23.0.95~140 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8682defdaad3a4f0ef56e1187bab35ef4dfc5c24;p=emacs.git (solar-n-hemi-seasons, solar-s-hemi-seasons): Make into defcustoms. (Bug#3429) --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d4bacc42aff..24308678387 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-06-04 Glenn Morris + + * calendar/solar.el (solar-n-hemi-seasons, solar-s-hemi-seasons): + Make into defcustoms. (Bug#3429) + 2009-06-01 Chong Yidong * international/README: New file. diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index a4845ea607a..78c716f9f97 100644 --- 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).")