From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 6 May 2005 19:27:09 +0000 (+0000)
Subject: (mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.
X-Git-Tag: ttn-vms-21-2-B4~487
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59d8fe2ed5efaeb059965e0cff0bc978c3d28b33;p=emacs.git

(mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.
---

diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 4dfd8eb16e5..2bcfaf648ec 100644
--- a/lisp/calendar/cal-bahai.el
+++ b/lisp/calendar/cal-bahai.el
@@ -375,19 +375,21 @@ nongregorian-diary-marking-hook."
                          (string-to-int y-str)))))
             (if dd-name
                 (mark-calendar-days-named
-                 (cdr (assoc-ignore-case (substring dd-name 0 3)
-                                         (calendar-make-alist
-                                          calendar-day-name-array
-                                          0
-                                          '(lambda (x) (substring x 0 3))))))
+                 (cdr (assoc-string (substring dd-name 0 3)
+                                    (calendar-make-alist
+                                     calendar-day-name-array
+                                     0
+                                     '(lambda (x) (substring x 0 3)))
+                                    t)))
               (if mm-name
                   (if (string-equal mm-name "*")
                       (setq mm 0)
                     (setq mm
-                          (cdr (assoc-ignore-case
+                          (cdr (assoc-string
                                 mm-name
                                 (calendar-make-alist
-                                  bahai-calendar-month-name-array))))))
+                                  bahai-calendar-month-name-array)
+                                t)))))
               (mark-bahai-calendar-date-pattern mm dd yy)))))
       (setq d (cdr d)))))