# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207195621 0
# Node ID bac2b63b476f651e8de59f9f6ae325ef0de628c8
# Parent  ed9ff03f156c9053c6d80af939a308129a0d3b84
(holiday-islamic-new-year): New function.

diff -r ed9ff03f156c -r bac2b63b476f lisp/calendar/cal-islam.el
--- a/lisp/calendar/cal-islam.el	Thu Apr 03 04:06:55 2008 +0000
+++ b/lisp/calendar/cal-islam.el	Thu Apr 03 04:07:01 2008 +0000
@@ -218,6 +218,23 @@
                         (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