Mercurial > emacs
changeset 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 | 4f1b1bddae88 |
| children | 2cc3642eb734 |
| files | lisp/calendar/diary-lib.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el Tue Jan 26 01:32:11 1999 +0000 +++ b/lisp/calendar/diary-lib.el Tue Jan 26 01:36:00 1999 +0000 @@ -765,18 +765,18 @@ (string-to-int y-str))))) (if dd-name (mark-calendar-days-named - (cdr (assoc (capitalize (substring dd-name 0 3)) - (calendar-make-alist - calendar-day-name-array - 0 - '(lambda (x) (substring x 0 3)))))) + (cdr (assoc-ignore-case + (substring dd-name 0 3) + (calendar-make-alist + calendar-day-name-array + 0 + '(lambda (x) (substring x 0 3)))))) (if mm-name (if (string-equal mm-name "*") (setq mm 0) (setq mm - (cdr (assoc - (capitalize - (substring mm-name 0 3)) + (cdr (assoc-ignore-case + (substring mm-name 0 3) (calendar-make-alist calendar-month-name-array 1