diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:32:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-01-26 01:32:11 +0000 |
| commit | e21f4943274af740db221e30850d802d3e582c3c (patch) | |
| tree | a46cb2c616b020909339789b11de89badf71d87e /lisp/calendar/cal-french.el | |
| parent | 50830fad6cea5086067331e78a8059806823ce3f (diff) | |
| download | emacs-e21f4943274af740db221e30850d802d3e582c3c.tar.gz | |
(calendar-goto-french-date): Use assoc-ignore-case and do not
capitalize when matching month and day names.
Diffstat (limited to 'lisp/calendar/cal-french.el')
| -rw-r--r-- | lisp/calendar/cal-french.el | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el index 9972f3ce22d..93f1e5c841f 100644 --- a/lisp/calendar/cal-french.el +++ b/lisp/calendar/cal-french.el @@ -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 |