Three insertion options:

[gnu-emacs] / lisp / calendar / cal-islam.el

diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el
index a8e038e52eb2b33c6dd581398c511b74558f8794..1949a6b48dd11638d1958f6674a10032ce8c0489 100644 (file)
--- a/lisp/calendar/cal-islam.el
+++ b/lisp/calendar/cal-islam.el
@@ -164,7 +164,7 @@ Driven by the variable `calendar-date-display-form'."
 
 (defun diary-islamic-date ()
   "Islamic calendar equivalent of date diary entry."
-  (let ((i (calendar-islamic-date-string (calendar-cursor-to-date t))))
+  (let ((i (calendar-islamic-date-string date)))
     (if (string-equal i "")
         "Date is pre-Islamic"
       (format "Islamic date (until sunset): %s" i))))