/[emacs]/emacs/lisp/calendar/cal-french.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-french.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.25 by pj, Fri Mar 15 20:41:01 2002 UTC
# Line 237  Echo French Revolutionary date unless NO Line 237  Echo French Revolutionary date unless NO
237              (day (if (> month 12)              (day (if (> month 12)
238                       (- month 12)                       (- month 12)
239                     (calendar-read                     (calendar-read
240                      "Jour (1-10): "                      "Jour (1-30): "
241                      '(lambda (x) (and (<= 1 x) (<= x 30))))))                      '(lambda (x) (and (<= 1 x) (<= x 30))))))
242              (month (if (> month 12) 13 month)))              (month (if (> month 12) 13 month)))
243         (list (list month day year)))))         (list (list month day year)))))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26