diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2005-05-06 19:27:09 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2005-05-06 19:27:09 +0000 |
commit | 40a2dfaf198f0e6670e0ca01da76c22303a85a54 (patch) | |
tree | dafb94af9cf492d5e58c3fba261b102f7de3e9f5 /lisp/calendar | |
parent | b3e707783102ce6e44c680125e0ca6b10a6cf07e (diff) | |
download | emacs-40a2dfaf198f0e6670e0ca01da76c22303a85a54.tar.gz |
(mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.
Diffstat (limited to 'lisp/calendar')
-rw-r--r-- | lisp/calendar/cal-bahai.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 4dfd8eb16e5..2bcfaf648ec 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -375,19 +375,21 @@ nongregorian-diary-marking-hook." (string-to-int y-str))))) (if dd-name (mark-calendar-days-named - (cdr (assoc-ignore-case (substring dd-name 0 3) - (calendar-make-alist - calendar-day-name-array - 0 - '(lambda (x) (substring x 0 3)))))) + (cdr (assoc-string (substring dd-name 0 3) + (calendar-make-alist + calendar-day-name-array + 0 + '(lambda (x) (substring x 0 3))) + t))) (if mm-name (if (string-equal mm-name "*") (setq mm 0) (setq mm - (cdr (assoc-ignore-case + (cdr (assoc-string mm-name (calendar-make-alist - bahai-calendar-month-name-array)))))) + bahai-calendar-month-name-array) + t))))) (mark-bahai-calendar-date-pattern mm dd yy))))) (setq d (cdr d))))) |