Function: calendar-hebrew-mark-date-pattern

calendar-hebrew-mark-date-pattern is an autoloaded and byte-compiled function defined in cal-hebrew.el.gz.

Signature

(calendar-hebrew-mark-date-pattern MONTH DAY YEAR &optional COLOR)

Documentation

Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.

A value of 0 in any position is a wildcard. Optional argument COLOR is passed to calendar-mark-visible-date as MARK.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-hebrew.el.gz
;;;###diary-autoload
(defun calendar-hebrew-mark-date-pattern (month day year &optional color)
  "Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard.  Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK."
  ;; FIXME not the same as the Bahá’í and Islamic cases, so can't use
  ;; calendar-mark-1.
  (with-current-buffer (calendar-get-buffer)
    (if (and (not (zerop month)) (not (zerop day)))
        (if (not (zerop year))
            ;; Fully specified Hebrew date.
            (let ((date (calendar-gregorian-from-absolute
                         (calendar-hebrew-to-absolute
                          (list month day year)))))
              (if (calendar-date-is-visible-p date)
                  (calendar-mark-visible-date date color)))
          ;; Month and day in any year.
          (let ((gdate (calendar-hebrew-date-is-visible-p month day)))
            (if gdate (calendar-mark-visible-date gdate color))))
      (calendar-mark-complex month day year
                             'calendar-hebrew-from-absolute color))))