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

49f64954 · Glenn Morris · 6bd7c8eb · 49f64954
Commit 49f64954 authored Mar 14, 2008 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 4 deletions

lisp/calendar/cal-bahai.el lisp/calendar/cal-bahai.el +2 -4

No files found.
--- 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