Mercurial > emacs

comparison lisp/calendar/cal-french.el @ 43939:a73eb952f031

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-goto-french-date): Fix prompt to match the actual code.
author Pavel Janík <Pavel@Janik.cz>
date Fri, 15 Mar 2002 20:41:01 +0000
parents 7a94f1c588c4
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
43938:60afac34bb7c 43939:a73eb952f031
235 nil t) 235 nil t)
236 (calendar-make-alist month-list 1 'car)))) 236 (calendar-make-alist month-list 1 'car))))
237 (day (if (> month 12) 237 (day (if (> month 12)
238 (- month 12) 238 (- month 12)
239 (calendar-read 239 (calendar-read
240 "Jour (1-10): " 240 "Jour (1-30): "
241 '(lambda (x) (and (<= 1 x) (<= x 30)))))) 241 '(lambda (x) (and (<= 1 x) (<= x 30))))))
242 (month (if (> month 12) 13 month))) 242 (month (if (> month 12) 13 month)))
243 (list (list month day year))))) 243 (list (list month day year)))))
244 (calendar-goto-date (calendar-gregorian-from-absolute 244 (calendar-goto-date (calendar-gregorian-from-absolute
245 (calendar-absolute-from-french date))) 245 (calendar-absolute-from-french date)))