summaryrefslogtreecommitdiff
path: root/lisp/calendar/cal-french.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-01-02 19:03:36 +0000
committerRichard M. Stallman <rms@gnu.org>1994-01-02 19:03:36 +0000
commitc3a3ebc910aca2f1fb0c6bb5ccf2b6747a1baa1b (patch)
treebcb361ceb009273517a57cd1ae136b63b2892645 /lisp/calendar/cal-french.el
parent4314dea4b4e7a9b2f88dac84744ae5145ee07f81 (diff)
downloademacs-c3a3ebc910aca2f1fb0c6bb5ccf2b6747a1baa1b.tar.gz
(calendar-goto-french-date): Fix special day
choice in non-leap years by re-reversing the list. Fix out of place parenthesis in prompt.
Diffstat (limited to 'lisp/calendar/cal-french.el')
-rw-r--r--lisp/calendar/cal-french.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/calendar/cal-french.el b/lisp/calendar/cal-french.el
index 2f9c92e9345..4a528eb0aa0 100644
--- a/lisp/calendar/cal-french.el
+++ b/lisp/calendar/cal-french.el
@@ -168,11 +168,12 @@ Echo French Revolutionary date unless NOECHO is t."
(mapcar
'(lambda (x) (concat "Jour " x))
french-calendar-special-days-array)
+ (nreverse
(cdr;; we don't want rev. day in a non-leap yr.
(nreverse
(mapcar
'(lambda (x) (concat "Jour " x))
- french-calendar-special-days-array)))))))
+ french-calendar-special-days-array))))))))
(completion-ignore-case t)
(month (cdr (assoc
(capitalize
@@ -192,7 +193,7 @@ Echo French Revolutionary date unless NOECHO is t."
(day (if (> month 12)
(- month 12)
(calendar-read
- "Jour (1-10)): "
+ "Jour (1-10): "
'(lambda (x) (and (<= 1 x) (<= x 10))))))
(month (if (> month 12) 13 month))
(day (+ day (* 10 (1- decade)))))