# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1077153603 0
# Node ID eeaae818026b7e716bfb0ede1813f96c37a7272d
# Parent  346fc2783282823983e298f67983af2197a21d2b
(mark-diary-entries): Use assoc-string instead of assoc-ignore-case.

diff -r 346fc2783282 -r eeaae818026b lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Thu Feb 19 01:19:05 2004 +0000
+++ b/lisp/calendar/diary-lib.el	Thu Feb 19 01:20:03 2004 +0000
@@ -906,19 +906,19 @@
                              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)