From: Glenn Morris <rgm@gnu.org>
Date: Thu, 19 Feb 2004 01:15:40 +0000 (+0000)
Subject: (calendar-goto-french-date): Use assoc-string instead of
X-Git-Tag: ttn-vms-21-2-B4~7527
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6ea0e2d2c285d64403f7d462d97e14cd0dbd07e;p=emacs.git

(calendar-goto-french-date): Use assoc-string instead of
assoc-ignore-case.
---

diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 7c855e4127a..d988b008f53 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -228,12 +228,12 @@ Echo French Revolutionary date unless NOECHO is t."
 				      (concat "Jour " x))
 				   special-days))))))))
 	    (completion-ignore-case t)
-	    (month (cdr (assoc-ignore-case
+	    (month (cdr (assoc-string
                          (completing-read
                           "Mois ou Sansculottide: "
                           month-list
                           nil t)
-			 (calendar-make-alist month-list 1 'car))))
+			 (calendar-make-alist month-list 1 'car) t)))
 	    (day (if (> month 12)
 		     (- month 12)
 		   (calendar-read