diff options
| author | Richard M. Stallman <[email protected]> | 1999-01-26 01:36:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1999-01-26 01:36:00 +0000 |
| commit | 6339134ef0bf0693002290c3d58e1d729e046f23 (patch) | |
| tree | b0ad135376d1464ff146820050da751af70d85e2 /lisp/calendar/diary-lib.el | |
| parent | e21f4943274af740db221e30850d802d3e582c3c (diff) | |
(mark-diary-entries): Use assoc-ignore-case and do not capitalize when
matching month and day names.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 6647bc2b35..ade18475dc 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -765,18 +765,18 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and (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 |