Skip to content

GitLab

Commit 59d8fe2e authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.

parent af2c6038
Hide whitespace changes
Inline Side-by-side
Showing with 9 additions and 7 deletions
lisp/calendar/cal-bahai.el
View file @ 59d8fe2e
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment