*** /usr/share/emacs/21.1/lisp/calendar/cal-french.el	Sun Oct 21 20:26:14 2001
--- /usr/local/share/emacs/site-lisp/cal-french.el	Thu Mar 14 09:23:07 2002
***************
*** 237,243 ****
  	    (day (if (> month 12)
  		     (- month 12)
  		   (calendar-read
! 		    "Jour (1-10): "
  		    '(lambda (x) (and (<= 1 x) (<= x 30))))))
  	    (month (if (> month 12) 13 month)))
         (list (list month day year)))))
--- 237,243 ----
  	    (day (if (> month 12)
  		     (- month 12)
  		   (calendar-read
! 		    "Jour (1-30): "
  		    '(lambda (x) (and (<= 1 x) (<= x 30))))))
  	    (month (if (> month 12) 13 month)))
         (list (list month day year)))))