From b5394859f200f4bd6c4bc4e7f626c557bdac5a38 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 26 Jan 1999 01:30:46 +0000 Subject: [PATCH] (calendar-goto-julian-date): Use assoc-ignore-case and do not capitalize when matching month and day names. --- lisp/calendar/cal-julian.el | 7 +++---- 1 file 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 -- 2.39.2