Source

calendar / cal-french.el

Diff from to

cal-french.el

 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
-;;; Synched up with: FSF 20.3
+;;; Synched up with: FSF 20.5
 ;;; Commentary:
 
 ;; This collection of functions implements the features of calendar.el and
 				    (concat "Jour " x))
                                  special-days))))))))
           (completion-ignore-case t)
-          (month (cdr (assoc
-                       (capitalize
+          (month (cdr (assoc-ignore-case
                         (completing-read
                          "Mois ou Sansculottide: "
                          month-list
-                         nil t))
-                       (calendar-make-alist
-                        month-list
-                        1
-                        '(lambda (x) (capitalize (car x)))))))
+                         nil t)
+			(calendar-make-alist month-list 1 'car))))
           (decade (if (> month 12)
                       1
                     (calendar-read