Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 103317:fd724c60cb3e | 103318:e47b96db18de |
|---|---|
| 145 delta. At present, delta = 0.01 degrees, so the value of the variable | 145 delta. At present, delta = 0.01 degrees, so the value of the variable |
| 146 `solar-error' should be at least 0.04 minutes (about 2.5 seconds)." | 146 `solar-error' should be at least 0.04 minutes (about 2.5 seconds)." |
| 147 :type 'number | 147 :type 'number |
| 148 :group 'calendar) | 148 :group 'calendar) |
| 149 | 149 |
| 150 (defcustom solar-n-hemi-seasons | |
| 151 '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice") | |
| 152 "List of season changes for the northern hemisphere." | |
| 153 :type '(list | |
| 154 (string :tag "Vernal Equinox") | |
| 155 (string :tag "Summer Solstice") | |
| 156 (string :tag "Autumnal Equinox") | |
| 157 (string :tag "Winter Solstice")) | |
| 158 :group 'calendar) | |
| 159 | |
| 160 (defcustom solar-s-hemi-seasons | |
| 161 '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice") | |
| 162 "List of season changes for the southern hemisphere." | |
| 163 :type '(list | |
| 164 (string :tag "Autumnal Equinox") | |
| 165 (string :tag "Winter Solstice") | |
| 166 (string :tag "Vernal Equinox") | |
| 167 (string :tag "Summer Solstice")) | |
| 168 :group 'calendar) | |
| 169 | |
| 150 ;;; End of user options. | 170 ;;; End of user options. |
| 151 | |
| 152 | |
| 153 (defconst solar-n-hemi-seasons | |
| 154 '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice") | |
| 155 "List of season changes for the northern hemisphere.") | |
| 156 | |
| 157 (defconst solar-s-hemi-seasons | |
| 158 '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice") | |
| 159 "List of season changes for the southern hemisphere.") | |
| 160 | 171 |
| 161 (defvar solar-sidereal-time-greenwich-midnight nil | 172 (defvar solar-sidereal-time-greenwich-midnight nil |
| 162 "Sidereal time at Greenwich at midnight (universal time).") | 173 "Sidereal time at Greenwich at midnight (universal time).") |
| 163 | 174 |
| 164 (defvar solar-northern-spring-or-summer-season nil | 175 (defvar solar-northern-spring-or-summer-season nil |