diff options
Diffstat (limited to 'lisp/calendar/cal-julian.el')
| -rw-r--r-- | lisp/calendar/cal-julian.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/cal-julian.el b/lisp/calendar/cal-julian.el index b409145fe3..830a1df143 100644 --- a/lisp/calendar/cal-julian.el +++ b/lisp/calendar/cal-julian.el @@ -118,14 +118,14 @@ Driven by the variable `calendar-date-display-form'." (mapcar 'list (append month-array nil)) nil t) (calendar-make-alist month-array 1)))) - (last + (last (if (and (zerop (% year 4)) (= month 2)) 29 (aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month)))) (day (calendar-read (format "Julian calendar day (%d-%d): " (if (and (= year 1) (= month 1)) 3 1) last) - '(lambda (x) + '(lambda (x) (and (< (if (and (= year 1) (= month 1)) 2 0) x) (<= x last)))))) (list (list month day year)))) |