comparison lisp/calendar/cal-china.el @ 92967:4151ef80cb37

(number-chinese-months, calendar-chinese-from-absolute): Use nth, caar.

92966:446f7aee7bf1

          ;; Remaining months.
          (if (zerop (- 12 start (length list)))
              ;; List is too short for a leap month.
              (number-chinese-months (cdr list) (1+ start))
            (if (and (cddr list)        ; at least two more months...
                     (<= (car (cddr list))
                         (chinese-zodiac-sign-on-or-after (cadr list))))
                ;; Next month is a leap month.
                (cons (list (+ start 0.5) (cadr list))
                      (number-chinese-months (cddr list) (1+ start)))
              ;; Next month is not a leap month.

                  (calendar-gregorian-from-absolute date)))
         (c-year (+ g-year 2695))
         (list (append (chinese-year (1- g-year))
                       (chinese-year g-year)
                       (chinese-year (1+ g-year)))))
    (while (<= (car (cdr (car (cdr list)))) date)
      ;; The first month on the list is in Chinese year c-year.
      ;; Date is on or after start of second month on list...
      (if (= 1 (car (car (cdr list))))
          ;; Second month on list is a new Chinese year...
          (setq c-year (1+ c-year)))
      ;; ...so first month on list is of no interest.
      (setq list (cdr list)))
    (list (/ (1- c-year) 60)
          (calendar-mod c-year 60)
          (car (car list))
          (1+ (- date (car (cdr (car list))))))))

;; Bound in generate-calendar.
(defvar displayed-month)
(defvar displayed-year)

92967:4151ef80cb37

          ;; Remaining months.
          (if (zerop (- 12 start (length list)))
              ;; List is too short for a leap month.
              (number-chinese-months (cdr list) (1+ start))
            (if (and (cddr list)        ; at least two more months...
                     (<= (nth 2 list)
                         (chinese-zodiac-sign-on-or-after (cadr list))))
                ;; Next month is a leap month.
                (cons (list (+ start 0.5) (cadr list))
                      (number-chinese-months (cddr list) (1+ start)))
              ;; Next month is not a leap month.

                  (calendar-gregorian-from-absolute date)))
         (c-year (+ g-year 2695))
         (list (append (chinese-year (1- g-year))
                       (chinese-year g-year)
                       (chinese-year (1+ g-year)))))
    (while (<= (cadr (cadr list)) date)
      ;; The first month on the list is in Chinese year c-year.
      ;; Date is on or after start of second month on list...
      (if (= 1 (caar (cdr list)))
          ;; Second month on list is a new Chinese year...
          (setq c-year (1+ c-year)))
      ;; ...so first month on list is of no interest.
      (setq list (cdr list)))
    (list (/ (1- c-year) 60)
          (calendar-mod c-year 60)
          (caar list)
          (1+ (- date (cadr (car list)))))))

;; Bound in generate-calendar.
(defvar displayed-month)
(defvar displayed-year)