Function: calendar-chinese-year-cache-init

calendar-chinese-year-cache-init is a byte-compiled function defined in cal-china.el.gz.

Signature

(calendar-chinese-year-cache-init YEAR)

Documentation

Insert an initialization value for calendar-chinese-year-cache after point.

Computes values for 10 years either side of YEAR.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-china.el.gz
;; Maintainer use.
(defun calendar-chinese-year-cache-init (year)
  "Insert an initialization value for `calendar-chinese-year-cache' after point.
Computes values for 10 years either side of YEAR."
  (setq year (- year 10))
  (let (calendar-chinese-year-cache end)
    (save-excursion
      (insert "'(")
      (dotimes (n 21)
        (princ (cons year (calendar-chinese-compute-year year))
               (current-buffer))
        (insert (if (= n 20) ")" "\n"))
        (setq year (1+ year)))
      (setq end (point)))
    (save-excursion
      ;; fill-column -/+ 5.
      (while (and (< (point) end)
                  (re-search-forward "^.\\{65,75\\})" end t))
        (delete-char 1)
        (insert "\n")))
    (indent-region (point) end)))