Mercurial > emacs
comparison lisp/calendar/cal-bahai.el @ 62123:8c992d4395d2
(mark-bahai-diary-entries): Replace `assoc-ignore-case' by `assoc-string'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 06 May 2005 19:27:09 +0000 |
| parents | 34b5f4f934df |
| children | a7e02ef1e3d6 |
comparison
equal
deleted
inserted
replaced
| 62122:96701ef6c56d | 62123:8c992d4395d2 |
|---|---|
| 373 (+ y 100) | 373 (+ y 100) |
| 374 y))) | 374 y))) |
| 375 (string-to-int y-str))))) | 375 (string-to-int y-str))))) |
| 376 (if dd-name | 376 (if dd-name |
| 377 (mark-calendar-days-named | 377 (mark-calendar-days-named |
| 378 (cdr (assoc-ignore-case (substring dd-name 0 3) | 378 (cdr (assoc-string (substring dd-name 0 3) |
| 379 (calendar-make-alist | 379 (calendar-make-alist |
| 380 calendar-day-name-array | 380 calendar-day-name-array |
| 381 0 | 381 0 |
| 382 '(lambda (x) (substring x 0 3)))))) | 382 '(lambda (x) (substring x 0 3))) |
| 383 t))) | |
| 383 (if mm-name | 384 (if mm-name |
| 384 (if (string-equal mm-name "*") | 385 (if (string-equal mm-name "*") |
| 385 (setq mm 0) | 386 (setq mm 0) |
| 386 (setq mm | 387 (setq mm |
| 387 (cdr (assoc-ignore-case | 388 (cdr (assoc-string |
| 388 mm-name | 389 mm-name |
| 389 (calendar-make-alist | 390 (calendar-make-alist |
| 390 bahai-calendar-month-name-array)))))) | 391 bahai-calendar-month-name-array) |
| 392 t))))) | |
| 391 (mark-bahai-calendar-date-pattern mm dd yy))))) | 393 (mark-bahai-calendar-date-pattern mm dd yy))))) |
| 392 (setq d (cdr d))))) | 394 (setq d (cdr d))))) |
| 393 | 395 |
| 394 (defun mark-bahai-calendar-date-pattern (month day year) | 396 (defun mark-bahai-calendar-date-pattern (month day year) |
| 395 "Mark dates in calendar window that conform to Baha'i date MONTH/DAY/YEAR. | 397 "Mark dates in calendar window that conform to Baha'i date MONTH/DAY/YEAR. |