From 3d9dece2e8254c33be7a27137f11b67b0adf90ca Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 20 Oct 1993 05:51:19 +0000 Subject: [PATCH] (solar-n-hemi-seasons, solar-s-hemi-seasons): New vars. (solar-equinoxes-solstices): Use them to fix names for southern hemisphere. --- lisp/calendar/solar.el | 8 ++++---- 1 file 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) -- 2.39.5