From 2ad9ebbd122d6dfb38c80f0064ffa6fc3e7ad33c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 19 Feb 2004 01:18:23 +0000 Subject: [PATCH] (calendar-goto-julian-date): Use assoc-string instead of assoc-ignore-case. --- lisp/calendar/cal-julian.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el index ac422602dc4..67fb8515b24 100644 --- 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 -- 2.39.2