diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-01-02 19:03:36 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-01-02 19:03:36 +0000 |
commit | c3a3ebc910aca2f1fb0c6bb5ccf2b6747a1baa1b (patch) | |
tree | bcb361ceb009273517a57cd1ae136b63b2892645 /lisp/calendar/cal-french.el | |
parent | 4314dea4b4e7a9b2f88dac84744ae5145ee07f81 (diff) | |
download | emacs-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.el | 5 |
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))))) |