mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

(calendar-goto-french-date): Fix special day

Browse Source 
choice in non-leap years by re-reversing the list.  Fix out of
place parenthesis in prompt.
This commit is contained in:
Richard M. Stallman 1994-01-02 19:03:36 +00:00
parent 4314dea4b4
commit c3a3ebc910
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/calendar/cal-french.el
View File

@ -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)))))