diff options
author | Richard M. Stallman <[email protected]> | 1999-01-26 01:27:39 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1999-01-26 01:27:39 +0000 |
commit | c0982a974096540c222e18b67eff8464f4596c4d (patch) | |
tree | 7d4c15193fcbe2de5ced182fcc1d65284c68825c | |
parent | 918358c9b902312bb2168c8cbd1051746cc7594c (diff) |
(persian-prompt-for-date): Use assoc-ignore-case and do not capitalize
when matching month and day names.
-rw-r--r-- | lisp/calendar/cal-persia.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el index a0be1b186e..1a92c617fb 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) |