# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 881208838 0
# Node ID 6f1b751fc31d755360ca938e80ac90e5a97056f1
# Parent  19ffabe93a2d5f690a653b923bcd1cbfad3119cc
(french-calendar-special-days-array): New function.
(calendar-french-date-string, calendar-goto-french-date): Use that
function instead of the variable.

diff -r 19ffabe93a2d -r 6f1b751fc31d lisp/calendar/cal-french.el
--- a/lisp/calendar/cal-french.el	Thu Dec 04 03:36:09 1997 +0000
+++ b/lisp/calendar/cal-french.el	Thu Dec 04 04:13:58 1997 +0000
@@ -62,6 +62,11 @@
   ["Vendémiaire" "Brumaire" "Frimaire" "Nivôse" "Pluviôse" "Ventôse"
    "Germinal" "Floréal" "Prairial" "Messidor" "Thermidor" "Fructidor"])
 
+(defun french-calendar-month-name-array ()
+  (if (french-calendar-accents)
+      french-calendar-multibyte-month-name-array
+    french-calendar-month-name-array))
+
 (defconst french-calendar-day-name-array
   ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi"
    "Octidi" "Nonidi" "Decadi"])
@@ -70,11 +75,6 @@
   ["de la Vertu" "du Génie" "du Labour" "de la Raison"
    "de la Récompense" "de la Révolution"])
 
-(defun french-calendar-month-name-array ()
-  (if (french-calendar-accents)
-      french-calendar-multibyte-month-name-array
-    french-calendar-month-name-array))
-
 (defun french-calendar-day-name-array ()
   french-calendar-day-name-array)
 
@@ -82,6 +82,11 @@
   ["de la Vertu" "du Ge'nie" "du Labour" "de la Raison" "de la Re'compense"
    "de la Re'volution"])
 
+(defun french-calendar-special-days-array ()
+  (if (french-calendar-accents)
+      french-calendar-multibyte-special-days-array
+    french-calendar-special-days-array))
+
 (defun french-calendar-leap-year-p (year)
   "True if YEAR is a leap year on the French Revolutionary calendar.
 For Gregorian years 1793 to 1805, the years of actual operation of the
@@ -169,7 +174,7 @@
      ((= m 13) (format (if (french-calendar-accents)
                            "Jour %s de l'Année %d de la Révolution"
                          "Jour %s de l'Anne'e %d de la Re'volution")
-                       (aref french-calendar-special-days-array (1- d))
+                       (aref (french-calendar-special-days-array) (1- d))
                        y))
      (t (format
          (if (french-calendar-accents)
@@ -214,13 +219,13 @@
                            (if (french-calendar-leap-year-p year)
                                (mapcar
                                 '(lambda (x) (concat "Jour " x))
-                                french-calendar-special-days-array)
+                                (french-calendar-special-days-array))
                              (reverse
                               (cdr;; we don't want rev. day in a non-leap yr.
                                (reverse
                                 (mapcar
                                  '(lambda (x) (concat "Jour " x))
-                                 french-calendar-special-days-array))))))))
+                                 (french-calendar-special-days-array)))))))))
           (completion-ignore-case t)
           (month (cdr (assoc
                        (capitalize