(calendar-goto-french-date): Use assoc-ignore-case and do not

capitalize when matching month and day names.

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 9972f3ce22d2fbd8eef9de12dbdea59ab6e5220d..93f1e5c841f8952e3f307b3eea1bf9eb673e081e 100644 (file)
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -229,16 +229,12 @@ Echo French Revolutionary date unless NOECHO is t."
                                      (concat "Jour " x))
                                   special-days))))))))
            (completion-ignore-case t)
-           (month (cdr (assoc
-                        (capitalize
-                         (completing-read
-                          "Mois ou Sansculottide: "
-                          month-list
-                          nil t))
-                        (calendar-make-alist
-                         month-list
-                         1
-                         '(lambda (x) (capitalize (car x)))))))
+           (month (cdr (assoc-ignore-case
+                         (completing-read
+                          "Mois ou Sansculottide: "
+                          month-list
+                          nil t)
+                        (calendar-make-alist month-list 1 'car))))
            (decade (if (> month 12)
                        1
                      (calendar-read