From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 26 Jan 1999 01:30:46 +0000 (+0000)
Subject: (calendar-goto-julian-date): Use assoc-ignore-case and do not
X-Git-Tag: emacs-20.4~760
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b5394859f200f4bd6c4bc4e7f626c557bdac5a38;p=emacs.git

(calendar-goto-julian-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
---

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