Commit 5cb93910 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(diary-islamic-date): Use `date'.

parent 7801463c
......@@ -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))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment