Function: cal-menu-holiday-window-suffix

cal-menu-holiday-window-suffix is a byte-compiled function defined in cal-menu.el.gz.

Signature

(cal-menu-holiday-window-suffix)

Documentation

Return a string suffix for the "Window" entry in cal-menu-holidays-menu.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-menu.el.gz
(defun cal-menu-holiday-window-suffix ()
  "Return a string suffix for the \"Window\" entry in `cal-menu-holidays-menu'."
  (let ((my1 (calendar-increment-month-cons -1))
        (my2 (calendar-increment-month-cons 1)))
    ;; Mon1-Mon2, Year  or  Mon1, Year1-Mon2, Year2.
    (format "%s%s-%s, %d"
            (calendar-month-name (car my1) 'abbrev)
            (if (= (cdr my1) (cdr my2))
                ""
              (format ", %d" (cdr my1)))
            (calendar-month-name (car my2) 'abbrev)
            (cdr my2))))