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

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

diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index a0be1b186ed..1a92c617fbc 100644
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -187,14 +187,13 @@ Echo Persian date unless NOECHO is t."
                    (calendar-absolute-from-gregorian today))))))
          (completion-ignore-case t)
          (month (cdr (assoc
-                      (capitalize
                        (completing-read
                         "Persian calendar month name: "
                         (mapcar 'list
                                 (append persian-calendar-month-name-array nil))
-                        nil t))
+                        nil t)
                       (calendar-make-alist persian-calendar-month-name-array
-                                           1 'capitalize))))
+                                           1))))
          (last (persian-calendar-last-day-of-month month year))
          (day (calendar-read
                (format "Persian calendar day (1-%d): " last)