From bf51dce332e700d4832c376759b415c1d5af44fe Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Jan 1999 01:29:43 +0000 Subject: [PATCH] (calendar-read-date): Use assoc-ignore-case and do not capitalize when matching month and day names. --- lisp/calendar/calendar.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 14827bc6319..a6ec6650df5 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -2301,13 +2301,12 @@ If optional NODAY is t, does not ask for day, but just returns (calendar-current-date))))) (month-array calendar-month-name-array) (completion-ignore-case t) - (month (cdr (assoc - (capitalize + (month (cdr (assoc-ignore-case (completing-read "Month name: " (mapcar 'list (append month-array nil)) - nil t)) - (calendar-make-alist month-array 1 'capitalize)))) + nil t) + (calendar-make-alist month-array 1)))) (last (calendar-last-day-of-month month year))) (if noday (if (eq noday t) -- 2.39.2