Mercurial > emacs

diff lisp/calendar/cal-julian.el @ 54076:9e3e3d184730

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-goto-julian-date): Use assoc-string instead of assoc-ignore-case.
author Glenn Morris <rgm@gnu.org>
date Thu, 19 Feb 2004 01:18:23 +0000
parents 695cf19ef79e
children 7f7db25577d9
line wrap: on
line diff
--- 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