[Emacs-diffs] Changes to emacs/lisp/calendar/cal-bahai.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/14 03:32:07

Index: cal-bahai.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-bahai.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- cal-bahai.el        14 Mar 2008 03:30:38 -0000      1.31
+++ cal-bahai.el        14 Mar 2008 03:32:07 -0000      1.32
@@ -194,8 +194,7 @@
          (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 @@
                  (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