# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 751096279 0
# Node ID adfd03a381cadb93b7ed42120e27eac88b02109b
# Parent  8f055b11942866d1c73a807fbc3fdfa3df2300d7
(solar-n-hemi-seasons, solar-s-hemi-seasons): New vars.
(solar-equinoxes-solstices): Use them to fix names for southern hemisphere.

diff -r 8f055b119428 -r adfd03a381ca lisp/calendar/solar.el
--- 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)