Function: math-setup-year-holidays

math-setup-year-holidays is an autoloaded and byte-compiled function defined in calc-forms.el.gz.

Signature

(math-setup-year-holidays SH-YEAR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-forms.el.gz
(defun math-setup-year-holidays (sh-year)
  (let ((math-sh-year sh-year))
    (dolist (expr (nth 2 math-holidays-cache))
      (defvar var-y) (defvar var-m)
      (let* ((var-y math-sh-year)
	     (var-m nil)
	     (expr (math-evaluate-expr expr)))
	(if (math-expr-contains expr '(var m var-m))
	    (let ((var-m 0))
	      (while (<= (setq var-m (1+ var-m)) 12)
		(math-setup-add-holidays (math-evaluate-expr expr))))
	  (math-setup-add-holidays expr))))))