Mercurial > emacs

changeset 92615:3dd341aae76d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-bahai-prompt-for-date, calendar-bahai-mark-date-pattern): Use zerop.
author Glenn Morris <rgm@gnu.org>
date Sat, 08 Mar 2008 04:28:32 +0000
parents 52850e6ad92b
children 73f78aff288c
files lisp/calendar/cal-bahai.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-bahai.el	Sat Mar 08 04:26:44 2008 +0000
+++ b/lisp/calendar/cal-bahai.el	Sat Mar 08 04:28:32 2008 +0000
@@ -165,7 +165,7 @@
   (let* ((today (calendar-current-date))
          (year (calendar-read
                 "Bahá'í calendar year (not 0): "
-                (lambda (x) (/= x 0))
+                (lambda (x) (not (zerop x)))
                 (int-to-string
                  (extract-calendar-year
                   (calendar-bahai-from-absolute
@@ -418,8 +418,8 @@
 A value of 0 in any position is a wildcard."
   (save-excursion
     (set-buffer calendar-buffer)
-    (if (and (/= 0 month) (/= 0 day))
-        (if (/= 0 year)
+    (if (and (not (zerop month)) (not (zerop day)))
+        (if (not (zerop year))
             ;; Fully specified Bahá'í date.
             (let ((date (calendar-gregorian-from-absolute
                          (calendar-absolute-from-bahai