Function: holiday-chinese-new-year

holiday-chinese-new-year is a byte-compiled function defined in cal-china.el.gz.

Signature

(holiday-chinese-new-year)

Documentation

Date of Chinese New Year, if visible in calendar.

Returns a list of ((MONTH DAY YEAR) TEXT), where the date is Gregorian.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-china.el.gz
;;;###holiday-autoload
(defun holiday-chinese-new-year ()
  "Date of Chinese New Year, if visible in calendar.
Returns a list of ((MONTH DAY YEAR) TEXT), where the date is Gregorian."
  (let (chinese-new-years)
    ;; In the Gregorian calendar, CNY falls between Jan 21 and Feb 20.
    (dolist (y (calendar-month-visible-p 1 1))
      (push
       (list (calendar-gregorian-from-absolute
              (cadr (assoc 1 (calendar-chinese-year y))))
             (format "Chinese New Year (%s)"
                     (calendar-chinese-sexagesimal-name (+ y 57))))
       chinese-new-years))
    (holiday-filter-visible-calendar chinese-new-years)))