From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 2 Jan 1994 19:03:36 +0000 (+0000)
Subject: (calendar-goto-french-date): Fix special day
X-Git-Tag: emacs-19.34~10435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3a3ebc910aca2f1fb0c6bb5ccf2b6747a1baa1b;p=emacs.git

(calendar-goto-french-date): Fix special day
choice in non-leap years by re-reversing the list.  Fix out of
place parenthesis in prompt.
---

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 2f9c92e9345..4a528eb0aa0 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -168,11 +168,12 @@ Echo French Revolutionary date unless NOECHO is t."
                                (mapcar
                                 '(lambda (x) (concat "Jour " x))
                                 french-calendar-special-days-array)
+                             (nreverse
                               (cdr;; we don't want rev. day in a non-leap yr.
                                (nreverse
                                 (mapcar
                                  '(lambda (x) (concat "Jour " x))
-                                 french-calendar-special-days-array)))))))
+                                 french-calendar-special-days-array))))))))
           (completion-ignore-case t)
           (month (cdr (assoc
                        (capitalize
@@ -192,7 +193,7 @@ Echo French Revolutionary date unless NOECHO is t."
           (day (if (> month 12)
                    (- month 12)
                  (calendar-read
-                  "Jour (1-10)): "
+                  "Jour (1-10): "
                   '(lambda (x) (and (<= 1 x) (<= x 10))))))
           (month (if (> month 12) 13 month))
           (day (+ day (* 10 (1- decade)))))