From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 20 Oct 1993 05:51:19 +0000 (+0000)
Subject: (solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
X-Git-Tag: emacs-19.34~10988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3d9dece2e8254c33be7a27137f11b67b0adf90ca;p=emacs.git

(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
(solar-equinoxes-solstices): Use them to fix names for southern hemisphere.
---

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)