mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-25 05:52:42 -08:00
Code Issues Projects Releases Wiki Activity

(holiday-islamic-new-year): New function.

Browse source
This commit is contained in:
Glenn Morris 2008-04-03 04:07:01 +00:00
parent 1c9992b7da
commit df1c298dbe
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/calendar/cal-islam.el
View file

@ -218,6 +218,23 @@ nil if it is not visible in the current calendar window."
(calendar-absolute-from-islamic (list month day y)))))
(list (list date string))))))
;;;###holiday-autoload
(defun holiday-islamic-new-year ()
"Holiday entry for the Islamic New Year, if visible in the calendar window."
(let ((date (caar (holiday-islamic 1 1 "")))
(m displayed-month)
(y displayed-year))
(and date
(list (list date
(format "Islamic New Year %d"
(progn
(increment-calendar-month m y 1)
(extract-calendar-year
(calendar-islamic-from-absolute
(calendar-absolute-from-gregorian
(list m (calendar-last-day-of-month m y) y)
))))))))))
(autoload 'diary-list-entries-1 "diary-lib")
;;;###diary-autoload