Mercurial > emacs
diff lisp/calendar/solar.el @ 103318:e47b96db18de
(solar-n-hemi-seasons, solar-s-hemi-seasons):
Make into defcustoms. (Bug#3429)
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 04 Jun 2009 06:40:13 +0000 |
| parents | a9dc0e7c3f2b |
| children | 1d1d5d9bd884 |
line wrap: on
line diff
--- a/lisp/calendar/solar.el Thu Jun 04 03:13:28 2009 +0000 +++ b/lisp/calendar/solar.el Thu Jun 04 06:40:13 2009 +0000 @@ -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).")