/[emacs]/emacs/lisp/calendar/cal-julian.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-julian.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.8.8.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 118  Driven by the variable `calendar-date-di Line 118  Driven by the variable `calendar-date-di
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))))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.8.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26