diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-10-20 05:51:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-10-20 05:51:19 +0000 |
| commit | 3d9dece2e8254c33be7a27137f11b67b0adf90ca (patch) | |
| tree | accec79fb5ae1eacf4372a8e24921cb3cf03595f | |
| parent | ebf11942fc17cbb638085ef9ab4dfbe506c9ae0e (diff) | |
| download | emacs-3d9dece2e8254c33be7a27137f11b67b0adf90ca.tar.gz emacs-3d9dece2e8254c33be7a27137f11b67b0adf90ca.tar.bz2 emacs-3d9dece2e8254c33be7a27137f11b67b0adf90ca.zip | |
(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
(solar-equinoxes-solstices): Use them to fix names for southern hemisphere.
| -rw-r--r-- | lisp/calendar/solar.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index ecc3f6bec1a..0298400b799 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -105,12 +105,11 @@ value and might not know how to override it.") "*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 @@ Requires floating point." (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) |