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. |