From abc178a0bcbf63f5646284f78f5fd29e4fc04e2e Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 19 Feb 2004 01:20:03 +0000 Subject: [PATCH] (mark-diary-entries): Use assoc-string instead of assoc-ignore-case. --- lisp/calendar/diary-lib.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.39.2