comparison lisp/calendar/cal-china.el @ 93454:648b1e67e4b5

Fix typo in previous change.

93453:22b3710e206a

  (let ((m displayed-month)
        (y displayed-year))
    ;; In the Gregorian calendar, CNY falls between Jan 21 and Feb 20.
    ;; Jan is visible if displayed-month = 12, 1, 2; Feb if d-m = 1, 2, 3.
    ;; If we shift the calendar forward one month, we can do a
    ;; one-sided test, namely: d-m <= 4 means CNYN might be visible.
    (increment-calendar-month m y 1)    ; shift forward a month
    (if (< m 5)
        (let ((chinese-new-year
               (calendar-gregorian-from-absolute
                (cadr (assoc 1 (chinese-year y))))))

93454:648b1e67e4b5

  (let ((m displayed-month)
        (y displayed-year))
    ;; In the Gregorian calendar, CNY falls between Jan 21 and Feb 20.
    ;; Jan is visible if displayed-month = 12, 1, 2; Feb if d-m = 1, 2, 3.
    ;; If we shift the calendar forward one month, we can do a
    ;; one-sided test, namely: d-m <= 4 means CNY might be visible.
    (increment-calendar-month m y 1)    ; shift forward a month
    (if (< m 5)
        (let ((chinese-new-year
               (calendar-gregorian-from-absolute
                (cadr (assoc 1 (chinese-year y))))))