From e21f4943274af740db221e30850d802d3e582c3c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Jan 1999 01:32:11 +0000 Subject: [PATCH] (calendar-goto-french-date): Use assoc-ignore-case and do not capitalize when matching month and day names. --- lisp/calendar/cal-french.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) 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 -- 2.39.2