Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
assoc-ignore-case.
This commit is contained in:
Glenn Morris 2004-02-19 01:15:40 +00:00
parent 3be2dc285d
commit f6ea0e2d2c
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calendar/cal-french.el
View file

@ -228,12 +228,12 @@ Echo French Revolutionary date unless NOECHO is t."
(concat "Jour " x))
special-days))))))))
(completion-ignore-case t)
(month (cdr (assoc-ignore-case
(month (cdr (assoc-string
(completing-read
"Mois ou Sansculottide: "
month-list
nil t)
(calendar-make-alist month-list 1 'car))))
(calendar-make-alist month-list 1 'car) t)))
(day (if (> month 12)
(- month 12)
(calendar-read