comparison lisp/calendar/cal-bahai.el @ 92911:69683285b129

(holiday-bahai, calendar-bahai-mark-date-pattern): Use unless.

92910:36a993320493

                      (calendar-absolute-from-gregorian
                       (list displayed-month 15 displayed-year))))
         (m (extract-calendar-month bahai-date))
         (y (extract-calendar-year bahai-date))
         (date))
    (if (< m 1)
        nil                            ; Bahá'í calendar doesn't apply
      (increment-calendar-month m y (- 10 month))
      (if (> m 7)                       ; Bahá'í date might be visible
          (let ((date (calendar-gregorian-from-absolute
                       (calendar-absolute-from-bahai (list month day y)))))
            (if (calendar-date-is-visible-p date)

                              (calendar-absolute-from-gregorian
                               (list displayed-month 15 displayed-year))))
                 (m (extract-calendar-month bahai-date))
                 (y (extract-calendar-year bahai-date))
                 (date))
            (if (< m 1)
                nil                    ; Bahá'í calendar doesn't apply
              (increment-calendar-month m y (- 10 month))
              (if (> m 7)               ; Bahá'í date might be visible
                  (let ((date (calendar-gregorian-from-absolute
                               (calendar-absolute-from-bahai
                                (list month day y)))))

92911:69683285b129

                      (calendar-absolute-from-gregorian
                       (list displayed-month 15 displayed-year))))
         (m (extract-calendar-month bahai-date))
         (y (extract-calendar-year bahai-date))
         (date))
    (unless (< m 1)                    ; Bahá'í calendar doesn't apply
      (increment-calendar-month m y (- 10 month))
      (if (> m 7)                       ; Bahá'í date might be visible
          (let ((date (calendar-gregorian-from-absolute
                       (calendar-absolute-from-bahai (list month day y)))))
            (if (calendar-date-is-visible-p date)

                              (calendar-absolute-from-gregorian
                               (list displayed-month 15 displayed-year))))
                 (m (extract-calendar-month bahai-date))
                 (y (extract-calendar-year bahai-date))
                 (date))
            (unless (< m 1)            ; Bahá'í calendar doesn't apply
              (increment-calendar-month m y (- 10 month))
              (if (> m 7)               ; Bahá'í date might be visible
                  (let ((date (calendar-gregorian-from-absolute
                               (calendar-absolute-from-bahai
                                (list month day y)))))