From 49f64954f584c6b95c5f35f840eb1281ec7db6d9 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 14 Mar 2008 03:32:07 +0000 Subject: [PATCH] (holiday-bahai, calendar-bahai-mark-date-pattern): Use unless. --- lisp/calendar/cal-bahai.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index 354fcfa3cdc..6628baf224d 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -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 -- 2.39.5