Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 04:17:35 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2005-05-06 19:27:09 +00:00
parent af2c603886
commit 59d8fe2ed5
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/calendar/cal-bahai.el
View file

@ -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)))))