# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 917314183 0
# Node ID 94db9f3958429a1dba62b21681d7eebc959dd462
# Parent  cc07d0f935d4a4393747919e82bf4d9010b230d5
(calendar-read-date): Use assoc-ignore-case and do not capitalize when
matching month and day names.

diff -r cc07d0f935d4 -r 94db9f395842 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Tue Jan 26 01:28:41 1999 +0000
+++ b/lisp/calendar/calendar.el	Tue Jan 26 01:29:43 1999 +0000
@@ -2301,13 +2301,12 @@
                                 (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)