[Emacs-diffs] Changes to emacs/lisp/calendar/cal-julian.el

[Miles Bader]

Index: emacs/lisp/calendar/cal-julian.el
diff -c emacs/lisp/calendar/cal-julian.el:1.8 
emacs/lisp/calendar/cal-julian.el:1.9
*** emacs/lisp/calendar/cal-julian.el:1.8       Mon Jul 16 03:46:48 2001
--- emacs/lisp/calendar/cal-julian.el   Tue Feb  4 07:49:33 2003
***************
*** 118,131 ****
                           (mapcar 'list (append month-array nil))
                           nil t)
                         (calendar-make-alist month-array 1))))
!           (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) 
                     (and (< (if (and (= year 1) (= month 1)) 2 0) x)
                          (<= x last))))))
       (list (list month day year))))
--- 118,131 ----
                           (mapcar 'list (append month-array nil))
                           nil t)
                         (calendar-make-alist month-array 1))))
!           (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)
                     (and (< (if (and (= year 1) (= month 1)) 2 0) x)
                          (<= x last))))))
       (list (list month day year))))