Mercurial > emacs
comparison lisp/calendar/cal-islam.el @ 80703:818d77e04d72
(holiday-islamic): Doc fix (sync from trunk 2008-04-23).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sun, 10 Aug 2008 20:06:46 +0000 |
| parents | 974a828870fe |
| children |
comparison
equal
deleted
inserted
replaced
| 80702:a54af6a5244e | 80703:818d77e04d72 |
|---|---|
| 175 "Date is pre-Islamic" | 175 "Date is pre-Islamic" |
| 176 (format "Islamic date (until sunset): %s" i)))) | 176 (format "Islamic date (until sunset): %s" i)))) |
| 177 | 177 |
| 178 (defun holiday-islamic (month day string) | 178 (defun holiday-islamic (month day string) |
| 179 "Holiday on MONTH, DAY (Islamic) called STRING. | 179 "Holiday on MONTH, DAY (Islamic) called STRING. |
| 180 If MONTH, DAY (Islamic) is visible, the value returned is corresponding | 180 If MONTH, DAY (Islamic) is visible, returns the corresponding |
| 181 Gregorian date in the form of the list (((month day year) STRING)). Returns | 181 Gregorian date as the list (((month day year) STRING)). |
| 182 nil if it is not visible in the current calendar window." | 182 Returns nil if it is not visible in the current calendar window." |
| 183 (let* ((islamic-date (calendar-islamic-from-absolute | 183 (let* ((islamic-date (calendar-islamic-from-absolute |
| 184 (calendar-absolute-from-gregorian | 184 (calendar-absolute-from-gregorian |
| 185 (list displayed-month 15 displayed-year)))) | 185 (list displayed-month 15 displayed-year)))) |
| 186 (m (extract-calendar-month islamic-date)) | 186 (m (extract-calendar-month islamic-date)) |
| 187 (y (extract-calendar-year islamic-date)) | 187 (y (extract-calendar-year islamic-date)) |