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