Commit 49f64954 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 6bd7c8eb
......@@ -194,8 +194,7 @@ nil if it is not visible in the current calendar window."
(m (extract-calendar-month bahai-date))
(y (extract-calendar-year bahai-date))
(date))
(if (< m 1)
nil ; Bahá'í calendar doesn't apply
(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
......@@ -314,8 +313,7 @@ A value of 0 in any position is a wildcard."
(m (extract-calendar-month bahai-date))
(y (extract-calendar-year bahai-date))
(date))
(if (< m 1)
nil ; Bahá'í calendar doesn't apply
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment