118 |
(mapcar 'list (append month-array nil)) |
(mapcar 'list (append month-array nil)) |
119 |
nil t) |
nil t) |
120 |
(calendar-make-alist month-array 1)))) |
(calendar-make-alist month-array 1)))) |
121 |
(last |
(last |
122 |
(if (and (zerop (% year 4)) (= month 2)) |
(if (and (zerop (% year 4)) (= month 2)) |
123 |
29 |
29 |
124 |
(aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month)))) |
(aref [31 28 31 30 31 30 31 31 30 31 30 31] (1- month)))) |
125 |
(day (calendar-read |
(day (calendar-read |
126 |
(format "Julian calendar day (%d-%d): " |
(format "Julian calendar day (%d-%d): " |
127 |
(if (and (= year 1) (= month 1)) 3 1) last) |
(if (and (= year 1) (= month 1)) 3 1) last) |
128 |
'(lambda (x) |
'(lambda (x) |
129 |
(and (< (if (and (= year 1) (= month 1)) 2 0) x) |
(and (< (if (and (= year 1) (= month 1)) 2 0) x) |
130 |
(<= x last)))))) |
(<= x last)))))) |
131 |
(list (list month day year)))) |
(list (list month day year)))) |