From: Glenn Morris <rgm@gnu.org>
Date: Fri, 14 Mar 2008 03:32:07 +0000 (+0000)
Subject: (holiday-bahai, calendar-bahai-mark-date-pattern): Use unless.
X-Git-Tag: emacs-pretest-23.0.90~7167
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49f64954f584c6b95c5f35f840eb1281ec7db6d9;p=emacs.git

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

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