(mark-diary-entries): Use assoc-ignore-case and do not capitalize when

matching month and day names.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 6647bc2b351773aafbd9c8355459a0b2e066bb3d..ade18475dcea293d75be19c57710fa80eaee786f 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -765,18 +765,18 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
                                      (string-to-int y-str)))))
                         (if dd-name
                             (mark-calendar-days-named
-                             (cdr (assoc (capitalize (substring dd-name 0 3))
-                                         (calendar-make-alist
-                                          calendar-day-name-array
-                                          0
-                                          '(lambda (x) (substring x 0 3))))))
+                             (cdr (assoc-ignore-case
+                                   (substring dd-name 0 3)
+                                   (calendar-make-alist
+                                    calendar-day-name-array
+                                    0
+                                    '(lambda (x) (substring x 0 3))))))
                           (if mm-name
                               (if (string-equal mm-name "*")
                                   (setq mm 0)
                                 (setq mm
-                                      (cdr (assoc
-                                            (capitalize
-                                             (substring mm-name 0 3))
+                                      (cdr (assoc-ignore-case
+                                            (substring mm-name 0 3)
                                             (calendar-make-alist
                                              calendar-month-name-array
                                              1