Mercurial > emacs
diff lisp/calendar/cal-bahai.el @ 92615:3dd341aae76d
(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 | 8b2b620788b7 |
children | fa071bcc1d62 |
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