Skip to content

GitLab

emacs
emacs
Commit 6339134e authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files
Options

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

matching month and day names.
parent e21f4943
Hide whitespace changes
Inline Side-by-side
Showing with 8 additions and 8 deletions
lisp/calendar/diary-lib.el
View file @ 6339134e
......@@ -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
......
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