From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Jan 1999 01:32:11 +0000 (+0000)
Subject: (calendar-goto-french-date): Use assoc-ignore-case and do not
X-Git-Tag: emacs-20.4~758
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e21f4943274af740db221e30850d802d3e582c3c;p=emacs.git

(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 9972f3ce22d..93f1e5c841f 100644
--- 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