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

(calendar-read-date): Use assoc-ignore-case and do not capitalize when
matching month and day names.
---

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)