Commit 6339134e authored by Richard M. Stallman's avatar Richard M. Stallman

(mark-diary-entries): Use assoc-ignore-case and do not capitalize when

matching month and day names.
parent e21f4943
...@@ -765,18 +765,18 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and ...@@ -765,18 +765,18 @@ After the entries are marked, the hooks `nongregorian-diary-marking-hook' and
(string-to-int y-str))))) (string-to-int y-str)))))
(if dd-name (if dd-name
(mark-calendar-days-named (mark-calendar-days-named
(cdr (assoc (capitalize (substring dd-name 0 3)) (cdr (assoc-ignore-case
(calendar-make-alist (substring dd-name 0 3)
calendar-day-name-array (calendar-make-alist
0 calendar-day-name-array
'(lambda (x) (substring x 0 3)))))) 0
'(lambda (x) (substring x 0 3))))))
(if mm-name (if mm-name
(if (string-equal mm-name "*") (if (string-equal mm-name "*")
(setq mm 0) (setq mm 0)
(setq mm (setq mm
(cdr (assoc (cdr (assoc-ignore-case
(capitalize (substring mm-name 0 3)
(substring mm-name 0 3))
(calendar-make-alist (calendar-make-alist
calendar-month-name-array calendar-month-name-array
1 1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment