Commit f6ea0e2d authored by Glenn Morris's avatar Glenn Morris
Browse files

(calendar-goto-french-date): Use assoc-string instead of

parent 3be2dc28
......@@ -228,12 +228,12 @@ Echo French Revolutionary date unless NOECHO is t."
(concat "Jour " x))
(completion-ignore-case t)
(month (cdr (assoc-ignore-case
(month (cdr (assoc-string
"Mois ou Sansculottide: "
nil t)
(calendar-make-alist month-list 1 'car))))
(calendar-make-alist month-list 1 'car) t)))
(day (if (> month 12)
(- month 12)
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