diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-03-08 04:30:10 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-03-08 04:30:10 +0000 |
| commit | 9b6c7da9cde24bf50aa3c562f3bcb7957736b89e (patch) | |
| tree | c72c607f8fd199b3c794e937059367d392d0da74 /lisp/calendar/cal-bahai.el | |
| parent | d7af270b439a9daa80f8006f580a4fd2133e5965 (diff) | |
| download | emacs-9b6c7da9cde24bf50aa3c562f3bcb7957736b89e.tar.gz | |
(calendar-bahai-prompt-for-date, calendar-bahai-mark-date-pattern):
Use zerop.
Diffstat (limited to 'lisp/calendar/cal-bahai.el')
| -rw-r--r-- | lisp/calendar/cal-bahai.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el index f18b88528e9..15688e9e834 100644 --- a/lisp/calendar/cal-bahai.el +++ b/lisp/calendar/cal-bahai.el @@ -165,7 +165,7 @@ Echo Bahá'í date unless NOECHO is t." (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 @@ nongregorian-diary-marking-hook." 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 |