# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1077153503 0
# Node ID 9e3e3d184730ced8a6af37189d3451035979fede
# Parent  5c162955af7a28bd6ce2fc41fe99a78169ad1152
(calendar-goto-julian-date): Use assoc-string instead of
assoc-ignore-case.

diff -r 5c162955af7a -r 9e3e3d184730 lisp/calendar/cal-julian.el
--- a/lisp/calendar/cal-julian.el	Thu Feb 19 01:17:44 2004 +0000
+++ b/lisp/calendar/cal-julian.el	Thu Feb 19 01:18:23 2004 +0000
@@ -115,12 +115,12 @@
                      today))))))
           (month-array calendar-month-name-array)
           (completion-ignore-case t)
-          (month (cdr (assoc-ignore-case
+          (month (cdr (assoc-string
                         (completing-read
                          "Julian calendar month name: "
                          (mapcar 'list (append month-array nil))
                          nil t)
-                       (calendar-make-alist month-array 1))))
+                       (calendar-make-alist month-array 1) t)))
           (last
            (if (and (zerop (% year 4)) (= month 2))
                29