# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 917314246 0
# Node ID c70c6c75012610eec979196f7d82669c59537a1c
# Parent  94db9f3958429a1dba62b21681d7eebc959dd462
(calendar-goto-julian-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.

diff -r 94db9f395842 -r c70c6c750126 lisp/calendar/cal-julian.el
--- a/lisp/calendar/cal-julian.el	Tue Jan 26 01:29:43 1999 +0000
+++ b/lisp/calendar/cal-julian.el	Tue Jan 26 01:30:46 1999 +0000
@@ -112,13 +112,12 @@
                      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