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

(coptic-prompt-for-date): Use assoc-ignore-case and do not capitalize
when matching month and day names.
---

diff --git a/lisp/calendar/cal-coptic.el b/lisp/calendar/cal-coptic.el
index 718688bf3bf..c43478a598a 100644
--- a/lisp/calendar/cal-coptic.el
+++ b/lisp/calendar/cal-coptic.el
@@ -151,15 +151,14 @@ Echo Coptic date unless NOECHO is t."
                   (calendar-coptic-from-absolute
                    (calendar-absolute-from-gregorian today))))))
          (completion-ignore-case t)
-         (month (cdr (assoc
-                      (capitalize
-                       (completing-read
-                        (format "%s calendar month name: " coptic-name)
-                        (mapcar 'list
-                                (append coptic-calendar-month-name-array nil))
-                        nil t))
+         (month (cdr (assoc-ignore-case
+                      (completing-read
+                       (format "%s calendar month name: " coptic-name)
+                       (mapcar 'list
+                               (append coptic-calendar-month-name-array nil))
+                       nil t)
                       (calendar-make-alist coptic-calendar-month-name-array
-                                           1 'capitalize))))
+                                           1))))
          (last (coptic-calendar-last-day-of-month month year))
          (day (calendar-read
                (format "%s calendar day (1-%d): " coptic-name last)