(calendar-goto-julian-date): Use assoc-string instead of

assoc-ignore-case.

(calendar-goto-julian-date): Use assoc-string instead of
assoc-ignore-case.
2ad9ebbd · Glenn Morris · 53d0b6a2 · 2ad9ebbd
Commit 2ad9ebbd authored Feb 19, 2004 by Glenn Morris
Show whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/calendar/cal-julian.el lisp/calendar/cal-julian.el +2 -2

No files found.
--- a/lisp/calendar/cal-julian.el
+++ b/lisp/calendar/cal-julian.el
@@ -115,12 +115,12 @@ Driven by the variable `calendar-date-display-form'."
                     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