Commit e21f4943 authored by Richard M. Stallman's avatar Richard M. Stallman

(calendar-goto-french-date): Use assoc-ignore-case and do not

capitalize when matching month and day names.
parent 50830fad
......@@ -229,16 +229,12 @@ Echo French Revolutionary date unless NOECHO is t."
(concat "Jour " x))
special-days))))))))
(completion-ignore-case t)
(month (cdr (assoc
(capitalize
(completing-read
"Mois ou Sansculottide: "
month-list
nil t))
(calendar-make-alist
month-list
1
'(lambda (x) (capitalize (car x)))))))
(month (cdr (assoc-ignore-case
(completing-read
"Mois ou Sansculottide: "
month-list
nil t)
(calendar-make-alist month-list 1 'car))))
(decade (if (> month 12)
1
(calendar-read
......
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