(calendar-goto-julian-date): Use assoc-ignore-case and do not

capitalize when matching month and day names.

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