Mercurial > emacs
diff lisp/calendar/solar.el @ 4863:adfd03a381ca
(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
(solar-equinoxes-solstices): Use them to fix names for southern hemisphere.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 20 Oct 1993 05:51:19 +0000 |
| parents | ec8c8721b7e3 |
| children | 9595049f63a9 |
line wrap: on
line diff
--- a/lisp/calendar/solar.el Wed Oct 20 05:50:35 1993 +0000 +++ b/lisp/calendar/solar.el Wed Oct 20 05:51:19 1993 +0000 @@ -105,12 +105,11 @@ "*Expression evaluating to name of `calendar-longitude', calendar-latitude'. Default value is just the latitude, longitude pair.") -;;; List of names of the seasons, dependent on your hemisphere. -(defconst n-hemi-seasons +(defvar solar-n-hemi-seasons '("Vernal Equinox" "Summer Solstice" "Autumnal Equinox" "Winter Solstice") "List of season changes for the northern hemisphere.") -(defconst s-hemi-seasons +(defvar solar-s-hemi-seasons '("Autumnal Equinox" "Winter Solstice" "Vernal Equinox" "Summer Solstice") "List of season changes for the southern hemisphere.") @@ -506,7 +505,8 @@ (extract-calendar-year date)))) (list (list date (format "%s %s" - (nth k (if s-hemi s-hemi-seasons n-hemi-seasons)) + (nth k (if s-hemi solar-s-hemi-seasons + solar-n-hemi-seasons)) (solar-time-string time date))))))) (provide 'solar)