diff options
| author | Richard M. Stallman <[email protected]> | 1999-01-26 01:29:43 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1999-01-26 01:29:43 +0000 |
| commit | bf51dce332e700d4832c376759b415c1d5af44fe (patch) | |
| tree | 8faa22675c9b951dfc176ef7f8d544ba10b36dff /lisp/calendar/calendar.el | |
| parent | bf7b2caf01c359539a34e4548031db719f24d507 (diff) | |
(calendar-read-date): Use assoc-ignore-case and do not capitalize when
matching month and day names.
Diffstat (limited to 'lisp/calendar/calendar.el')
| -rw-r--r-- | lisp/calendar/calendar.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 14827bc631..a6ec6650df 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) |