(persian-prompt-for-date): Use assoc-ignore-case and do not capitalize

when matching month and day names.
1999-01-26 01:27:39 +00:00 · 1999-01-26 01:27:39 +00:00 · c0982a9740
commit c0982a9740
parent 918358c9b9
1 changed files with 2 additions and 3 deletions
--- 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)