From: Glenn Morris <rgm@gnu.org>
Date: Thu, 19 Feb 2004 01:20:03 +0000 (+0000)
Subject: (mark-diary-entries): Use assoc-string instead of assoc-ignore-case.
X-Git-Tag: ttn-vms-21-2-B4~7522
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abc178a0bcbf63f5646284f78f5fd29e4fc04e2e;p=emacs.git

(mark-diary-entries): Use assoc-string instead of assoc-ignore-case.
---

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index d2a0075fb71..bb4ea20f804 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -906,19 +906,19 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
                              marks (nth 1 temp))))
                 (if dd-name
                     (mark-calendar-days-named
-                     (cdr (assoc-ignore-case
+                     (cdr (assoc-string
                            dd-name
                            (calendar-make-alist
                             calendar-day-name-array
-                            0 nil calendar-day-abbrev-array))) marks)
+                            0 nil calendar-day-abbrev-array) t)) marks)
                   (if mm-name
                       (setq mm
                             (if (string-equal mm-name "*") 0
-                              (cdr (assoc-ignore-case
+                              (cdr (assoc-string
                                     mm-name
                                     (calendar-make-alist
                                      calendar-month-name-array
-                                     1 nil calendar-month-abbrev-array))))))
+                                     1 nil calendar-month-abbrev-array) t)))))
                   (mark-calendar-date-pattern mm dd yy marks))))
             (setq d (cdr d))))
         (mark-sexp-diary-entries)