Mercurial > emacs

changeset 54078:eeaae818026b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mark-diary-entries): Use assoc-string instead of assoc-ignore-case.
author Glenn Morris <rgm@gnu.org>
date Thu, 19 Feb 2004 01:20:03 +0000
parents 346fc2783282
children e1b6171f91b8
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)