Mercurial > emacs
comparison lisp/calendar/cal-bahai.el @ 92911:69683285b129
(holiday-bahai, calendar-bahai-mark-date-pattern): Use unless.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 14 Mar 2008 03:32:07 +0000 |
parents | e6b06f524f2b |
children | 9bc37937216f |
comparison
equal
deleted
inserted
replaced
92910:36a993320493 | 92911:69683285b129 |
---|---|
192 (calendar-absolute-from-gregorian | 192 (calendar-absolute-from-gregorian |
193 (list displayed-month 15 displayed-year)))) | 193 (list displayed-month 15 displayed-year)))) |
194 (m (extract-calendar-month bahai-date)) | 194 (m (extract-calendar-month bahai-date)) |
195 (y (extract-calendar-year bahai-date)) | 195 (y (extract-calendar-year bahai-date)) |
196 (date)) | 196 (date)) |
197 (if (< m 1) | 197 (unless (< m 1) ; Bahá'í calendar doesn't apply |
198 nil ; Bahá'í calendar doesn't apply | |
199 (increment-calendar-month m y (- 10 month)) | 198 (increment-calendar-month m y (- 10 month)) |
200 (if (> m 7) ; Bahá'í date might be visible | 199 (if (> m 7) ; Bahá'í date might be visible |
201 (let ((date (calendar-gregorian-from-absolute | 200 (let ((date (calendar-gregorian-from-absolute |
202 (calendar-absolute-from-bahai (list month day y))))) | 201 (calendar-absolute-from-bahai (list month day y))))) |
203 (if (calendar-date-is-visible-p date) | 202 (if (calendar-date-is-visible-p date) |
312 (calendar-absolute-from-gregorian | 311 (calendar-absolute-from-gregorian |
313 (list displayed-month 15 displayed-year)))) | 312 (list displayed-month 15 displayed-year)))) |
314 (m (extract-calendar-month bahai-date)) | 313 (m (extract-calendar-month bahai-date)) |
315 (y (extract-calendar-year bahai-date)) | 314 (y (extract-calendar-year bahai-date)) |
316 (date)) | 315 (date)) |
317 (if (< m 1) | 316 (unless (< m 1) ; Bahá'í calendar doesn't apply |
318 nil ; Bahá'í calendar doesn't apply | |
319 (increment-calendar-month m y (- 10 month)) | 317 (increment-calendar-month m y (- 10 month)) |
320 (if (> m 7) ; Bahá'í date might be visible | 318 (if (> m 7) ; Bahá'í date might be visible |
321 (let ((date (calendar-gregorian-from-absolute | 319 (let ((date (calendar-gregorian-from-absolute |
322 (calendar-absolute-from-bahai | 320 (calendar-absolute-from-bahai |
323 (list month day y))))) | 321 (list month day y))))) |