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

capitalize when matching month and day names.

(calendar-goto-french-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
e21f4943 · Richard M. Stallman · 50830fad · e21f4943
Commit e21f4943 authored Jan 26, 1999 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 10 deletions

lisp/calendar/cal-french.el lisp/calendar/cal-french.el +6 -10

No files found.
--- 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