Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 24192:1baa5a4968b2
(mark-diary-entries): Use assoc-ignore-case and do not capitalize when
matching month and day names.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 26 Jan 1999 01:36:00 +0000 |
| parents | 6a6bb17fba97 |
| children | cca41b0e7ae7 |
comparison
equal
deleted
inserted
replaced
| 24191:4f1b1bddae88 | 24192:1baa5a4968b2 |
|---|---|
| 763 (+ y 100) | 763 (+ y 100) |
| 764 y))) | 764 y))) |
| 765 (string-to-int y-str))))) | 765 (string-to-int y-str))))) |
| 766 (if dd-name | 766 (if dd-name |
| 767 (mark-calendar-days-named | 767 (mark-calendar-days-named |
| 768 (cdr (assoc (capitalize (substring dd-name 0 3)) | 768 (cdr (assoc-ignore-case |
| 769 (calendar-make-alist | 769 (substring dd-name 0 3) |
| 770 calendar-day-name-array | 770 (calendar-make-alist |
| 771 0 | 771 calendar-day-name-array |
| 772 '(lambda (x) (substring x 0 3)))))) | 772 0 |
| 773 '(lambda (x) (substring x 0 3)))))) | |
| 773 (if mm-name | 774 (if mm-name |
| 774 (if (string-equal mm-name "*") | 775 (if (string-equal mm-name "*") |
| 775 (setq mm 0) | 776 (setq mm 0) |
| 776 (setq mm | 777 (setq mm |
| 777 (cdr (assoc | 778 (cdr (assoc-ignore-case |
| 778 (capitalize | 779 (substring mm-name 0 3) |
| 779 (substring mm-name 0 3)) | |
| 780 (calendar-make-alist | 780 (calendar-make-alist |
| 781 calendar-month-name-array | 781 calendar-month-name-array |
| 782 1 | 782 1 |
| 783 '(lambda (x) (substring x 0 3))) | 783 '(lambda (x) (substring x 0 3))) |
| 784 ))))) | 784 ))))) |