diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:30:46 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:30:46 +0000 |
| commit | b5394859f200f4bd6c4bc4e7f626c557bdac5a38 (patch) | |
| tree | 85caa7164738c0ea47a984a567bfb13e0ceab0b0 /lisp/calendar/cal-julian.el | |
| parent | bf51dce332e700d4832c376759b415c1d5af44fe (diff) | |
| download | emacs-b5394859f200f4bd6c4bc4e7f626c557bdac5a38.tar.gz | |
(calendar-goto-julian-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
Diffstat (limited to 'lisp/calendar/cal-julian.el')
| -rw-r--r-- | lisp/calendar/cal-julian.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el index d151e8c5333..2fd6eda6c71 100644 --- a/lisp/calendar/cal-julian.el +++ b/lisp/calendar/cal-julian.el @@ -112,13 +112,12 @@ Driven by the variable `calendar-date-display-form'." today)))))) (month-array calendar-month-name-array) (completion-ignore-case t) - (month (cdr (assoc - (capitalize + (month (cdr (assoc-ignore-case (completing-read "Julian calendar 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 (if (and (zerop (% year 4)) (= month 2)) 29 |