diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/calendar/cal-bahai.el | 6 |
1 files 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 |